nomvar_tomawac.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\tomawac\nomvar_tomawac.f
00002 !
00054                      SUBROUTINE NOMVAR_TOMAWAC
00055 !                    *************************
00056 !
00057      &(TEXTE,TEXTPR,MNEMO,MAXVAR)
00058 !
00059 !***********************************************************************
00060 ! TOMAWAC   V6P1                                   21/06/2011
00061 !***********************************************************************
00062 !
00063 !
00064 !
00065 !
00066 !
00067 !
00068 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00069 !| MAXVAR         |-->| MAXIMUM NUMBER OF OUTPUT VARIABLES
00070 !| MNEMO          |<--| ALIASES FOR THE VARIABLES IN THE STEERING FILE
00071 !| TEXTE          |<--| NAMES OF VARIABLES
00072 !| TEXTPR         |<--| NAMES OF VARIABLES OF THE PREVIOUS COMPUTATION
00073 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00074 !
00075       IMPLICIT NONE
00076 !
00077       INTEGER LNG,LU
00078       COMMON/INFO/LNG,LU
00079 !
00080       INTEGER      MAXVAR
00081       CHARACTER*32 TEXTE(MAXVAR),TEXTPR(MAXVAR)
00082       CHARACTER*8  MNEMO(MAXVAR)
00083 !
00084 !-----------------------------------------------------------------------
00085 !
00086 !  ENGLISH
00087 !
00088       IF (LNG.EQ.2) THEN
00089 !
00090       TEXTE (1 ) = 'VARIANCE M0     M2              '
00091       TEXTE (2 ) = 'WAVE HEIGHT HM0 M               '
00092       TEXTE (3 ) = 'MEAN DIRECTION  DEG             '
00093       TEXTE (4 ) = 'WAVE SPREAD     DEG             '
00094       TEXTE (5 ) = 'BOTTOM          M               '
00095       TEXTE (6 ) = 'WATER DEPTH     M               '
00096       TEXTE (7 ) = 'VELOCITY U      M/S             '
00097       TEXTE (8 ) = 'VELOCITY V      M/S             '
00098       TEXTE (9 ) = 'WIND ALONG X    M/S             '
00099       TEXTE (10) = 'WIND ALONG Y    M/S             '
00100       TEXTE (11) = 'FORCE FX        M/S2            '
00101       TEXTE (12) = 'FORCE FY        M/S2            '
00102       TEXTE (13) = 'STRESS SXX      M3/S2           '
00103       TEXTE (14) = 'STRESS SXY      M3/S2           '
00104       TEXTE (15) = 'STRESS SYY      M3/S2           '
00105       TEXTE (16) = 'BOTTOM VELOCITY M/S             '
00106       TEXTE (17) = 'PRIVATE 1       UNIT   ??       '
00107       TEXTE (18) = 'MEAN FREQ FMOY  HZ              '
00108       TEXTE (19) = 'MEAN FREQ FM01  HZ              '
00109       TEXTE (20) = 'MEAN FREQ FM02  HZ              '
00110       TEXTE (21) = 'PEAK FREQ FPD   HZ              '
00111       TEXTE (22) = 'PEAK FREQ FPR5  HZ              '
00112       TEXTE (23) = 'PEAK FREQ FPR8  HZ              '
00113       TEXTE (24) = 'USTAR           M/S             '
00114       TEXTE (25) = 'CD                              '
00115       TEXTE (26) = 'Z0              M               '
00116       TEXTE (27) = 'WAVE STRESS     KG/(M.S2)       '
00117       TEXTE (28) = 'MEAN PERIOD TMOYS               '
00118       TEXTE (29) = 'MEAN PERIOD TM01S               '
00119       TEXTE (30) = 'MEAN PERIOD TM02S               '
00120       TEXTE (31) = 'PEAK PERIOD TPD S               '
00121       TEXTE (32) = 'PEAK PERIOD TPR5S               '
00122       TEXTE (33) = 'PEAK PERIOD TPR8S               '
00123       TEXTE (34) = 'WAVE POWER      KW/M            '
00124       TEXTE (35) = 'BETA                            '
00125 !
00126 ! TEXTPR IS USED TO READ PREVIOUS COMPUTATION FILES.
00127 ! IN GENERAL TEXTPR=TEXTE UNLESS ANOTHER CODE WAS USED TO
00128 ! GENERATE THE PREVIOUS RESULT, IN WHICH CASE THE OUTPUT
00129 ! VARIABLE NAMES HAVE TO BE WRITTEN HERE.
00130 !
00131       TEXTPR (1 ) = 'VARIANCE M0     M2              '
00132       TEXTPR (2 ) = 'WAVE HEIGHT HM0 M               '
00133       TEXTPR (3 ) = 'MEAN DIRECTION  DEG             '
00134       TEXTPR (4 ) = 'WAVE SPREAD     DEG             '
00135       TEXTPR (5 ) = 'BOTTOM          M               '
00136       TEXTPR (6 ) = 'WATER DEPTH     M               '
00137       TEXTPR (7 ) = 'VELOCITY U      M/S             '
00138       TEXTPR (8 ) = 'VELOCITY V      M/S             '
00139       TEXTPR (9 ) = 'WIND ALONG X    M/S             '
00140       TEXTPR (10) = 'WIND ALONG Y    M/S             '
00141       TEXTPR (11) = 'FORCE FX        M/S2            '
00142       TEXTPR (12) = 'FORCE FY        M/S2            '
00143       TEXTPR (13) = 'STRESS SXX      M3/S2           '
00144       TEXTPR (14) = 'STRESS SXY      M3/S2           '
00145       TEXTPR (15) = 'STRESS SYY      M3/S2           '
00146       TEXTPR (16) = 'BOTTOM VELOCITY M/S             '
00147       TEXTPR (17) = 'PRIVATE 1       UNIT   ??       '
00148       TEXTPR (18) = 'MEAN FREQ FMOY  HZ              '
00149       TEXTPR (19) = 'MEAN FREQ FM01  HZ              '
00150       TEXTPR (20) = 'MEAN FREQ FM02  HZ              '
00151       TEXTPR (21) = 'PEAK FREQ FPD   HZ              '
00152       TEXTPR (22) = 'PEAK FREQ FPR5  HZ              '
00153       TEXTPR (23) = 'PEAK FREQ FPR8  HZ              '
00154       TEXTPR (24) = 'USTAR           M/S             '
00155       TEXTPR (25) = 'CD                              '
00156       TEXTPR (26) = 'Z0              M               '
00157       TEXTPR (27) = 'WAVE STRESS     KG/(M.S2)       '
00158       TEXTPR (28) = 'MEAN PERIOD TMOYS               '
00159       TEXTPR (29) = 'MEAN PERIOD TM01S               '
00160       TEXTPR (30) = 'MEAN PERIOD TM02S               '
00161       TEXTPR (31) = 'PEAK PERIOD TPD S               '
00162       TEXTPR (32) = 'PEAK PERIOD TPR5S               '
00163       TEXTPR (33) = 'PEAK PERIOD TPR8S               '
00164       TEXTPR (34) = 'WAVE POWER      KW/M            '
00165       TEXTPR (35) = 'BETA                            '
00166 !
00167 !-----------------------------------------------------------------------
00168 !
00169 !  FRENCH OR OTHER
00170 !
00171       ELSE
00172 !
00173       TEXTE (1 ) = 'VARIANCE M0     M2              '
00174       TEXTE (2 ) = 'HAUTEUR HM0     M               '
00175       TEXTE (3 ) = 'DIRECTION MOY   DEG             '
00176       TEXTE (4 ) = 'ETALEMENT DIREC DEG             '
00177       TEXTE (5 ) = 'FOND            M               '
00178       TEXTE (6 ) = 'HAUTEUR D''EAU   M               '
00179       TEXTE (7 ) = 'VITESSE U       M/S             '
00180       TEXTE (8 ) = 'VITESSE V       M/S             '
00181       TEXTE (9 ) = 'VENT X          M/S             '
00182       TEXTE (10) = 'VENT Y          M/S             '
00183       TEXTE (11) = 'FORCE FX        M/S2            '
00184       TEXTE (12) = 'FORCE FY        M/S2            '
00185       TEXTE (13) = 'CONTRAINTE SXX  M3/S2           '
00186       TEXTE (14) = 'CONTRAINTE SXY  M3/S2           '
00187       TEXTE (15) = 'CONTRAINTE SYY  M3/S2           '
00188       TEXTE (16) = 'VITESSE FOND    M/S             '
00189       TEXTE (17) = 'PRIVE 1         UNIT   ??       '
00190       TEXTE (18) = 'FREQ MOY FMOY   HZ              '
00191       TEXTE (19) = 'FREQ MOY FM01   HZ              '
00192       TEXTE (20) = 'FREQ MOY FM02   HZ              '
00193       TEXTE (21) = 'FREQ PIC FPD    HZ              '
00194       TEXTE (22) = 'FREQ PIC FPR5   HZ              '
00195       TEXTE (23) = 'FREQ PIC FPR8   HZ              '
00196       TEXTE (24) = 'USTAR           M/S             '
00197       TEXTE (25) = 'CD                              '
00198       TEXTE (26) = 'Z0              M               '
00199       TEXTE (27) = 'CONTRAINTE SURF KG/(M.S2)       '
00200       TEXTE (28) = 'PERIODE MOY TMOYS               '
00201       TEXTE (29) = 'PERIODE MOY TM01S               '
00202       TEXTE (30) = 'PERIODE MOY TM02S               '
00203       TEXTE (31) = 'PERIODE PIC TPD S               '
00204       TEXTE (32) = 'PERIODE PIC TPR5S               '
00205       TEXTE (33) = 'PERIODE PIC TPR8S               '
00206       TEXTE (34) = 'PUISSANCE HOULE KW/M            '
00207       TEXTE (35) = 'BETA                            '
00208 !
00209 ! TEXTPR SERT A LA LECTURE DES FICHIERS DE CALCULS PRECEDENTS
00210 ! A PRIORI TEXTPR=TEXTE MAIS ON PEUT ESSAYER DE FAIRE UNE SUITE
00211 ! DE CALCUL A PARTIR D'UN AUTRE CODE.
00212 !
00213       TEXTPR (1 ) = 'VARIANCE M0     M2              '
00214       TEXTPR (2 ) = 'HAUTEUR HM0     M               '
00215       TEXTPR (3 ) = 'DIRECTION MOY   DEG             '
00216       TEXTPR (4 ) = 'ETALEMENT DIREC DEG             '
00217       TEXTPR (5 ) = 'FOND            M               '
00218       TEXTPR (6 ) = 'HAUTEUR D''EAU   M               '
00219       TEXTPR (7 ) = 'VITESSE U       M/S             '
00220       TEXTPR (8 ) = 'VITESSE V       M/S             '
00221       TEXTPR (9 ) = 'VENT X          M/S             '
00222       TEXTPR (10) = 'VENT Y          M/S             '
00223       TEXTPR (11) = 'FORCE FX        M/S2            '
00224       TEXTPR (12) = 'FORCE FY        M/S2            '
00225       TEXTPR (13) = 'CONTRAINTE SXX  M3/S2           '
00226       TEXTPR (14) = 'CONTRAINTE SXY  M3/S2           '
00227       TEXTPR (15) = 'CONTRAINTE SYY  M3/S2           '
00228       TEXTPR (16) = 'VITESSE FOND    M/S             '
00229       TEXTPR (17) = 'PRIVE 1         UNIT   ??       '
00230       TEXTPR (18) = 'FREQ MOY FMOY   HZ              '
00231       TEXTPR (19) = 'FREQ MOY FM01   HZ              '
00232       TEXTPR (20) = 'FREQ MOY FM02   HZ              '
00233       TEXTPR (21) = 'FREQ PIC FPD    HZ              '
00234       TEXTPR (22) = 'FREQ PIC FPR5   HZ              '
00235       TEXTPR (23) = 'FREQ PIC FPR8   HZ              '
00236       TEXTPR (24) = 'USTAR           M/S             '
00237       TEXTPR (25) = 'CD                              '
00238       TEXTPR (26) = 'Z0              M               '
00239       TEXTPR (27) = 'CONTRAINTE SURF KG/(M.S2)       '
00240       TEXTPR (28) = 'PERIODE MOY TMOYS               '
00241       TEXTPR (29) = 'PERIODE MOY TM01S               '
00242       TEXTPR (30) = 'PERIODE MOY TM02S               '
00243       TEXTPR (31) = 'PERIODE PIC TPD S               '
00244       TEXTPR (32) = 'PERIODE PIC TPR5S               '
00245       TEXTPR (33) = 'PERIODE PIC TPR8S               '
00246       TEXTPR (34) = 'PUISSANCE HOULE KW/M            '
00247       TEXTPR (35) = 'BETA                            '
00248 !
00249       ENDIF
00250 !
00251 !-----------------------------------------------------------------------
00252 !
00253 !   ALIASES FOR THE VARIABLES IN THE STEERING FILE
00254 !
00255       MNEMO(1)    = 'M0      '
00256       MNEMO(2)    = 'HM0     '
00257       MNEMO(3)    = 'DMOY    '
00258       MNEMO(4)    = 'SPD     '
00259       MNEMO(5)    = 'ZF      '
00260       MNEMO(6)    = 'WD      '
00261       MNEMO(7)    = 'UX      '
00262       MNEMO(8)    = 'UY      '
00263       MNEMO(9)    = 'VX      '
00264       MNEMO(10)   = 'VY      '
00265       MNEMO(11)   = 'FX      '
00266       MNEMO(12)   = 'FY      '
00267       MNEMO(13)   = 'SXX     '
00268       MNEMO(14)   = 'SXY     '
00269       MNEMO(15)   = 'SYY     '
00270       MNEMO(16)   = 'UWB     '
00271       MNEMO(17)   = 'PRI     '
00272       MNEMO(18)   = 'FMOY    '
00273       MNEMO(19)   = 'FM01    '
00274       MNEMO(20)   = 'FM02    '
00275       MNEMO(21)   = 'FPD     '
00276       MNEMO(22)   = 'FPR5    '
00277       MNEMO(23)   = 'FPR8    '
00278       MNEMO(24)   = 'US      '
00279       MNEMO(25)   = 'CD      '
00280       MNEMO(26)   = 'Z0      '
00281       MNEMO(27)   = 'WS      '
00282       MNEMO(28)   = 'TMOY    '
00283       MNEMO(29)   = 'TM01    '
00284       MNEMO(30)   = 'TM02    '
00285       MNEMO(31)   = 'TPD     '
00286       MNEMO(32)   = 'TPR5    '
00287       MNEMO(33)   = 'TPR8    '
00288       MNEMO(34)   = 'POW     '
00289       MNEMO(35)   = 'BETA    '
00290 !
00291 !-----------------------------------------------------------------------
00292 !
00293       RETURN
00294       END

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