entart.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\artemis\entart.f
00002 !
00058                      SUBROUTINE ENTART
00059 !                    *****************
00060 !
00061      &(ITITRE,X,LT,NBR,NBRTOT,ALEMON,ALEMUL,BALAYE)
00062 !
00063 !***********************************************************************
00064 ! ARTEMIS   V6P1                                   21/08/2010
00065 !***********************************************************************
00066 !
00067 !
00068 !
00069 !
00070 !
00071 !
00072 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00073 !| ALEMON         |-->| TRUE IF MONODIRECTIONAL RANDOM WAVES
00074 !| ALEMUL         |-->| TRUE IF MULTIDIRECTIONAL RANDOM WAVES
00075 !| BALAYE         |-->| TRUE IF PERIOD SCANNING
00076 !| ITITRE         |-->| TYPE OF TITLE TO PRINT
00077 !| LT             |-->| INDICE OF THE CURRENT CALCULATION
00078 !| NBR            |-->| NUMBER OF CURRENT PERIOD OR DIRECTION
00079 !| NBRTOT         |-->| TOTAL NUMBER OF PERIOD OR DIRECTION
00080 !| X              |-->| REAL TO PRINT
00081 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00082 !
00083       USE INTERFACE_ARTEMIS, EX_ENTART => ENTART
00084 !
00085       IMPLICIT NONE
00086       INTEGER LNG,LU
00087       COMMON/INFO/LNG,LU
00088 !
00089       INTEGER LT,ITITRE,NBR,NBRTOT
00090 !
00091       DOUBLE PRECISION X
00092 !
00093       LOGICAL ALEMON,ALEMUL,BALAYE
00094 !
00095       CHARACTER*32 TEXTFR(5),TEXTGB(5)
00096 !
00097 !-----------------------------------------------------------------------
00098 !
00099       DATA TEXTFR / 'PERIODE     ' ,
00100      &              ' SECONDES   ' ,
00101      &              'DIRECTION   ' ,
00102      &              ' DEGRES     ' ,
00103      &              '            ' /
00104       DATA TEXTGB / 'PERIOD      ' ,
00105      &              ' SECONDS    ' ,
00106      &              'DIRECTION   ' ,
00107      &              ' DEGREES    ' ,
00108      &              '            ' /
00109 !
00110 ! REGULAR WAVES
00111 !
00112       IF (.NOT.ALEMON .AND. .NOT.ALEMUL .AND. .NOT.BALAYE) THEN
00113         NBRTOT = 1
00114       ENDIF
00115 !
00116 !-----------------------------------------------------------------------
00117 !
00118 !   WRITES OUT THE COMPUTED WAVE PERIOD
00119 !
00120 !
00121       IF (ITITRE.EQ.1) THEN
00122         IF(LNG.EQ.1) WRITE(LU,100) TEXTFR(1),NBR,NBRTOT,X,TEXTFR(2)
00123         IF(LNG.EQ.2) WRITE(LU,100) TEXTGB(1),NBR,NBRTOT,X,TEXTGB(2)
00124       ENDIF
00125 !
00126 100   FORMAT(/,80('='),/,7X,A8,I2,'/',I2,' : ',F12.4,A10,/)
00127 !
00128 !
00129 !-----------------------------------------------------------------------
00130 !
00131 !   WRITES OUT THE COMPUTED WAVE DIRECTION
00132 !
00133 !
00134       IF (ITITRE.EQ.2) THEN
00135         IF(LNG.EQ.1) WRITE(LU,110) TEXTFR(3),NBR,NBRTOT,X,TEXTFR(4)
00136         IF(LNG.EQ.2) WRITE(LU,110) TEXTGB(3),NBR,NBRTOT,X,TEXTGB(4)
00137       ENDIF
00138 !
00139 110   FORMAT(/,7X,A10,I2,'/',I2,' : ',F12.4,A10,/)
00140 !
00141 !-----------------------------------------------------------------------
00142 !
00143       RETURN
00144       END

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0