nomvar_tomawac.f

Go to the documentation of this file.

!                   *************************
                    SUBROUTINE nomvar_tomawac
!                   *************************
!
     &(texte,mnemo,maxvar)
!
!***********************************************************************
! TOMAWAC   V6P1                                   21/06/2011
!***********************************************************************
!
!brief    GIVES THE VARIABLE NAMES FOR THE RESULTS AND GEOMETRY
!+                FILES (TEXTE).
!+
!+
!history  MICHEL BENOIT (EDF R&D LNHE)
!+        06/12/2004
!+        V5P5
!+
!
!history  N.DURAND (HRW), S.E.BOURBAN (HRW)
!+        13/07/2010
!+        V6P0
!+   Translation of French comments within the FORTRAN sources into
!+   English comments
!
!history  N.DURAND (HRW), S.E.BOURBAN (HRW)
!+        21/08/2010
!+        V6P0
!+   Creation of DOXYGEN tags for automated documentation and
!+   cross-referencing of the FORTRAN sources
!
!history  G.MATTAROLO (EDF - LNHE)
!+        20/06/2011
!+        V6P1
!+   Translation of French names of the variables in argument
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| MAXVAR         |-->| MAXIMUM NUMBER OF OUTPUT VARIABLES
!| MNEMO          |<--| ALIASES FOR THE VARIABLES IN THE STEERING FILE
!| TEXTE          |<--| NAMES OF VARIABLES
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE declarations_special
      USE interface_tomawac, ex_nomvar_tomawac => nomvar_tomawac
      IMPLICIT NONE
!
!
      INTEGER, INTENT(IN)         ::      MAXVAR
      CHARACTER(LEN=32), INTENT(INOUT) :: TEXTE(maxvar)
      CHARACTER(LEN=8) , INTENT(INOUT) :: MNEMO(maxvar)
!
!-----------------------------------------------------------------------
!
!  ENGLISH
!
      IF (lng.EQ.lng_en) THEN
!
        texte(1 ) = 'VARIANCE M0     M2              '
        texte(2 ) = 'WAVE HEIGHT HM0 M               '
        texte(3 ) = 'MEAN DIRECTION  DEG             '
        texte(4 ) = 'WAVE SPREAD     DEG             '
        texte(5 ) = 'BOTTOM          M               '
        texte(6 ) = 'WATER DEPTH     M               '
        texte(7 ) = 'VELOCITY U      M/S             '
        texte(8 ) = 'VELOCITY V      M/S             '
        texte(9 ) = 'WIND ALONG X    M/S             '
        texte(10) = 'WIND ALONG Y    M/S             '
        texte(11) = 'FORCE FX        M/S2            '
        texte(12) = 'FORCE FY        M/S2            '
        texte(13) = 'STRESS SXX      M3/S2           '
        texte(14) = 'STRESS SXY      M3/S2           '
        texte(15) = 'STRESS SYY      M3/S2           '
        texte(16) = 'BOTTOM VELOCITY M/S             '
        texte(17) = 'PRIVATE 1       UNIT   ??       '
        texte(18) = 'MEAN FREQ FMOY  HZ              '
        texte(19) = 'MEAN FREQ FM01  HZ              '
        texte(20) = 'MEAN FREQ FM02  HZ              '
        texte(21) = 'PEAK FREQ FPD   HZ              '
        texte(22) = 'PEAK FREQ FPR5  HZ              '
        texte(23) = 'PEAK FREQ FPR8  HZ              '
        texte(24) = 'USTAR           M/S             '
        texte(25) = 'CD                              '
        texte(26) = 'Z0              M               '
        texte(27) = 'WAVE STRESS     KG/(M.S2)       '
        texte(28) = 'MEAN PERIOD TMOYS               '
        texte(29) = 'MEAN PERIOD TM01S               '
        texte(30) = 'MEAN PERIOD TM02S               '
        texte(31) = 'PEAK PERIOD TPD S               '
        texte(32) = 'PEAK PERIOD TPR5S               '
        texte(33) = 'PEAK PERIOD TPR8S               '
        texte(34) = 'WAVE POWER      KW/M            '
        texte(35) = 'BETA                            '
!-----------------------------------------------------------------------
!
!  FRENCH OR OTHER
!
      ELSE
!
        texte(1 ) = 'VARIANCE M0     M2              '
        texte(2 ) = 'HAUTEUR HM0     M               '
        texte(3 ) = 'DIRECTION MOY   DEG             '
        texte(4 ) = 'ETALEMENT DIREC DEG             '
        texte(5 ) = 'FOND            M               '
        texte(6 ) = 'HAUTEUR D''EAU   M               '
        texte(7 ) = 'VITESSE U       M/S             '
        texte(8 ) = 'VITESSE V       M/S             '
        texte(9 ) = 'VENT X          M/S             '
        texte(10) = 'VENT Y          M/S             '
        texte(11) = 'FORCE FX        M/S2            '
        texte(12) = 'FORCE FY        M/S2            '
        texte(13) = 'CONTRAINTE SXX  M3/S2           '
        texte(14) = 'CONTRAINTE SXY  M3/S2           '
        texte(15) = 'CONTRAINTE SYY  M3/S2           '
        texte(16) = 'VITESSE FOND    M/S             '
        texte(17) = 'PRIVE 1         UNIT   ??       '
        texte(18) = 'FREQ MOY FMOY   HZ              '
        texte(19) = 'FREQ MOY FM01   HZ              '
        texte(20) = 'FREQ MOY FM02   HZ              '
        texte(21) = 'FREQ PIC FPD    HZ              '
        texte(22) = 'FREQ PIC FPR5   HZ              '
        texte(23) = 'FREQ PIC FPR8   HZ              '
        texte(24) = 'USTAR           M/S             '
        texte(25) = 'CD                              '
        texte(26) = 'Z0              M               '
        texte(27) = 'CONTRAINTE SURF KG/(M.S2)       '
        texte(28) = 'PERIODE MOY TMOYS               '
        texte(29) = 'PERIODE MOY TM01S               '
        texte(30) = 'PERIODE MOY TM02S               '
        texte(31) = 'PERIODE PIC TPD S               '
        texte(32) = 'PERIODE PIC TPR5S               '
        texte(33) = 'PERIODE PIC TPR8S               '
        texte(34) = 'PUISSANCE HOULE KW/M            '
        texte(35) = 'BETA                            '
      ENDIF
!-----------------------------------------------------------------------
!
!   ALIASES FOR THE VARIABLES IN THE STEERING FILE
!
      mnemo(1)    = 'M0      '
      mnemo(2)    = 'HM0     '
      mnemo(3)    = 'DMOY    '
      mnemo(4)    = 'SPD     '
      mnemo(5)    = 'ZF      '
      mnemo(6)    = 'WD      '
      mnemo(7)    = 'UX      '
      mnemo(8)    = 'UY      '
      mnemo(9)    = 'VX      '
      mnemo(10)   = 'VY      '
      mnemo(11)   = 'FX      '
      mnemo(12)   = 'FY      '
      mnemo(13)   = 'SXX     '
      mnemo(14)   = 'SXY     '
      mnemo(15)   = 'SYY     '
      mnemo(16)   = 'UWB     '
      mnemo(17)   = 'PRI     '
      mnemo(18)   = 'FMOY    '
      mnemo(19)   = 'FM01    '
      mnemo(20)   = 'FM02    '
      mnemo(21)   = 'FPD     '
      mnemo(22)   = 'FPR5    '
      mnemo(23)   = 'FPR8    '
      mnemo(24)   = 'US      '
      mnemo(25)   = 'CD      '
      mnemo(26)   = 'Z0      '
      mnemo(27)   = 'WS      '
      mnemo(28)   = 'TMOY    '
      mnemo(29)   = 'TM01    '
      mnemo(30)   = 'TM02    '
      mnemo(31)   = 'TPD     '
      mnemo(32)   = 'TPR5    '
      mnemo(33)   = 'TPR8    '
      mnemo(34)   = 'POW     '
      mnemo(35)   = 'BETA    '
!
!-----------------------------------------------------------------------
!
      RETURN
      END