nomvar_artemis.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\artemis\nomvar_artemis.f
00002 !
00054                      SUBROUTINE NOMVAR_ARTEMIS
00055 !                    *************************
00056 !
00057      &(TEXTE,TEXTPR,MNEMO)
00058 !
00059 !***********************************************************************
00060 ! ARTEMIS   V6P1                                   21/08/2010
00061 !***********************************************************************
00062 !
00063 !
00064 !
00065 !
00066 !
00067 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00068 !| MNEMO          |---| ALIASES FOR VARIALBLES
00069 !| TEXTE          |<--| NAME OF VARIABLES
00070 !| TEXTPR         |<--| VARIABLES NAME OF PREVIOUS CALCULATION
00071 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00072 !
00073       USE INTERFACE_ARTEMIS, EX_NOMVAR_ARTEMIS => NOMVAR_ARTEMIS
00074       IMPLICIT NONE
00075       INTEGER LNG,LU
00076       COMMON/INFO/LNG,LU
00077 !
00078       CHARACTER*32 TEXTE(26),TEXTPR(26)
00079       CHARACTER*8  MNEMO(26)
00080 !
00081 !-----------------------------------------------------------------------
00082 !
00083 !  ENGLISH
00084 !
00085       IF(LNG.EQ.2) THEN
00086 !
00087       TEXTE (1 ) = 'WAVE HEIGHT     M               '
00088       TEXTE (2 ) = 'WAVE PHASE      RAD             '
00089       TEXTE (3 ) = 'U0 SURFACE      M/S             '
00090       TEXTE (4 ) = 'V0 SURFACE      M/S             '
00091       TEXTE (5 ) = 'FREE SURFACE    M               '
00092       TEXTE (6 ) = 'BOTTOM          M               '
00093       TEXTE (7 ) = 'STILL WATER H   M               '
00094       TEXTE (8 ) = 'PHASE VELOCITY  M/S             '
00095       TEXTE (9 ) = 'GROUP VELOCITY  M/S             '
00096       TEXTE (10) = 'WAVE NUMBER     1/M             '
00097       TEXTE (11) = 'REAL POTENTIAL  M2/S            '
00098       TEXTE (12) = 'IMAG POTENTIAL  M2/S            '
00099       TEXTE (13) = 'PRIVATE 1       UNIT   ??       '
00100       TEXTE (14) = 'PRIVATE 2       UNIT   ??       '
00101       TEXTE (15) = 'PRIVATE 3       UNIT   ??       '
00102       TEXTE (16) = 'PRIVATE 4       UNIT   ??       '
00103       TEXTE (17) = 'T01             S               '
00104       TEXTE (18) = 'T02             S               '
00105       TEXTE (19) = 'TM              S               '
00106       TEXTE (20) = 'FORCE_FX        M/S2            '
00107       TEXTE (21) = 'FORCE_FY        M/S2            '
00108       TEXTE (22) = 'WAVE INCIDENCE  DEG             '
00109       TEXTE (23) = 'QB                              '
00110       TEXTE (24) = 'STRESS_SXX      M3/S2           '
00111       TEXTE (25) = 'STRESS_SXY      M3/S2           '
00112       TEXTE (26) = 'STRESS_SYY      M3/S2           '
00113 !
00114 ! TEXTPR IS USED TO READ PREVIOUS COMPUTATION FILES.
00115 ! IN GENERAL TEXTPR=TEXTE UNLESS ANOTHER CODE WAS USED TO
00116 ! GENERATE THE PREVIOUS RESULT, IN WHICH CASE THE OUTPUT
00117 ! VARIABLE NAMES HAVE TO BE WRITTEN HERE.
00118 !
00119       TEXTPR (1 ) = 'WAVE HEIGHT     M               '
00120       TEXTPR (2 ) = 'WAVE PHASE      RAD             '
00121       TEXTPR (3 ) = 'U0 SURFACE      M/S             '
00122       TEXTPR (4 ) = 'V0 SURFACE      M/S             '
00123       TEXTPR (5 ) = 'FREE SURFACE    M               '
00124       TEXTPR (6 ) = 'BOTTOM          M               '
00125       TEXTPR (7 ) = 'STILL WATER H   M               '
00126       TEXTPR (8 ) = 'PHASE VELOCITY  M/S             '
00127       TEXTPR (9 ) = 'GROUP VELOCITY  M/S             '
00128       TEXTPR (10) = 'WAVE NUMBER     1/M             '
00129       TEXTPR (11) = 'REAL POTENTIAL  M2/S            '
00130       TEXTPR (12) = 'IMAG POTENTIAL  M2/S            '
00131       TEXTPR (13) = 'PRIVATE 1       UNIT   ??       '
00132       TEXTPR (14) = 'PRIVATE 2       UNIT   ??       '
00133       TEXTPR (15) = 'PRIVATE 3       UNIT   ??       '
00134       TEXTPR (16) = 'PRIVATE 4       UNIT   ??       '
00135       TEXTPR (17) = 'T01             S               '
00136       TEXTPR (18) = 'T02             S               '
00137       TEXTPR (19) = 'TM              S               '
00138       TEXTPR (20) = 'FORCE_FX        M/S2            '
00139       TEXTPR (21) = 'FORCE_FY        M/S2            '
00140       TEXTPR (22) = 'WAVE INCIDENCE  DEG             '
00141       TEXTPR (23) = 'QB                              '
00142       TEXTPR (24) = 'STRESS_SXX      M3/S2           '
00143       TEXTPR (25) = 'STRESS_SXY      M3/S2           '
00144       TEXTPR (26) = 'STRESS_SYY      M3/S2           '
00145 !
00146 !-----------------------------------------------------------------------
00147 !
00148 !  FRENCH OR OTHER
00149 !
00150       ELSE
00151 !
00152       TEXTE (1 ) = 'HAUTEUR HOULE   M               '
00153       TEXTE (2 ) = 'PHASE HOULE     RAD             '
00154       TEXTE (3 ) = 'U0 SURFACE      M/S             '
00155       TEXTE (4 ) = 'V0 SURFACE      M/S             '
00156       TEXTE (5 ) = 'SURFACE LIBRE   M               '
00157       TEXTE (6 ) = 'FOND            M               '
00158       TEXTE (7 ) = 'H EAU REPOS     M               '
00159       TEXTE (8 ) = 'VITESSE PHASE   M/S             '
00160       TEXTE (9 ) = 'VITESSE GROUPE  M/S             '
00161       TEXTE (10) = 'NOMBRE ONDE     1/M             '
00162       TEXTE (11) = 'POTENTIEL REEL  M2/S            '
00163       TEXTE (12) = 'POTENTIEL IMAG  M2/S            '
00164       TEXTE (13) = 'PRIVE 1         UNITES ??       '
00165       TEXTE (14) = 'PRIVE 2         UNITES ??       '
00166       TEXTE (15) = 'PRIVE 3         UNITES ??       '
00167       TEXTE (16) = 'PRIVE 4         UNITES ??       '
00168       TEXTE (17) = 'T01             S               '
00169       TEXTE (18) = 'T02             S               '
00170       TEXTE (19) = 'TM              S               '
00171       TEXTE (20) = 'FORCE_FX        M/S2            '
00172       TEXTE (21) = 'FORCE_FY        M/S2            '
00173       TEXTE (22) = 'INCIDENCE HOULE DEG             '
00174       TEXTE (23) = 'QB                              '
00175       TEXTE (24) = 'CONTRAINTE_SXX  M3/S2           '
00176       TEXTE (25) = 'CONTRAINTE_SXY  M3/S2           '
00177       TEXTE (26) = 'CONTRAINTE_SYY  M3/S2           '
00178 !
00179 ! TEXTPR SERT A LA LECTURE DES FICHIERS DE CALCULS PRECEDENTS
00180 ! A PRIORI TEXTPR=TEXTE MAIS ON PEUT ESSAYER DE FAIRE UNE SUITE
00181 ! DE CALCUL A PARTIR D'UN AUTRE CODE.
00182 !
00183       TEXTPR (1 ) = 'HAUTEUR HOULE   M               '
00184       TEXTPR (2 ) = 'PHASE HOULE     RAD             '
00185       TEXTPR (3 ) = 'U0 SURFACE      M/S             '
00186       TEXTPR (4 ) = 'V0 SURFACE      M/S             '
00187       TEXTPR (5 ) = 'SURFACE LIBRE   M               '
00188       TEXTPR (6 ) = 'FOND            M               '
00189       TEXTPR (7 ) = 'H EAU REPOS     M               '
00190       TEXTPR (8 ) = 'VITESSE PHASE   M/S             '
00191       TEXTPR (9 ) = 'VITESSE GROUPE  M/S             '
00192       TEXTPR (10) = 'NOMBRE ONDE     1/M             '
00193       TEXTPR (11) = 'POTENTIEL REEL  M2/S            '
00194       TEXTPR (12) = 'POTENTIEL IMAG  M2/S            '
00195       TEXTPR (13) = 'PRIVE 1         UNITES ??       '
00196       TEXTPR (14) = 'PRIVE 2         UNITES ??       '
00197       TEXTPR (15) = 'PRIVE 3         UNITES ??       '
00198       TEXTPR (16) = 'PRIVE 4         UNITES ??       '
00199       TEXTPR (17) = 'T01             S               '
00200       TEXTPR (18) = 'T02             S               '
00201       TEXTPR (19) = 'TM              S               '
00202       TEXTPR (20) = 'FORCE_FX        M/S2            '
00203       TEXTPR (21) = 'FORCE_FY        M/S2            '
00204       TEXTPR (22) = 'INCIDENCE HOULE DEG             '
00205       TEXTPR (23) = 'QB                              '
00206       TEXTPR (24) = 'CONTRAINTE_SXX  M3/S2           '
00207       TEXTPR (25) = 'CONTRAINTE_SXY  M3/S2           '
00208       TEXTPR (26) = 'CONTRAINTE_SYY  M3/S2           '
00209 !
00210       ENDIF
00211 !
00212 !-----------------------------------------------------------------------
00213 !
00214 !   ALIASES FOR THE VARIABLES IN THE STEERING FILE
00215 !
00216 !     USES THE OLD : LETVAR/&#039 DATED; APUVSBHCGKIJDEFOLMNWXT???? ' /
00217 !
00218       MNEMO(1)    = 'HS      '
00219       MNEMO(2)    = 'PHAS    '
00220       MNEMO(3)    = 'U0      '
00221       MNEMO(4)    = 'V0      '
00222       MNEMO(5)    = 'ZS      '
00223       MNEMO(6)    = 'ZF      '
00224       MNEMO(7)    = 'HW      '
00225       MNEMO(8)    = 'C       '
00226       MNEMO(9)    = 'CG      '
00227       MNEMO(10)   = 'K       '
00228       MNEMO(11)   = 'PHIR    '
00229       MNEMO(12)   = 'PHII    '
00230       MNEMO(13)   = 'D       '
00231       MNEMO(14)   = 'E       '
00232       MNEMO(15)   = 'F       '
00233       MNEMO(16)   = 'G       '
00234       MNEMO(17)   = 'T01     '
00235       MNEMO(18)   = 'T02     '
00236       MNEMO(19)   = 'TM      '
00237       MNEMO(20)   = 'FX      '
00238       MNEMO(21)   = 'FY      '
00239       MNEMO(22)   = 'INC     '
00240       MNEMO(23)   = 'QB      '
00241       MNEMO(24)   = 'SXX     '
00242       MNEMO(25)   = 'SXY     '
00243       MNEMO(26)   = 'SYY     '
00244 !
00245 !-----------------------------------------------------------------------
00246 !
00247       RETURN
00248       END

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