nomvar_artemis.f

Go to the documentation of this file.

!                   *************************
                    SUBROUTINE nomvar_artemis
!                   *************************
!
     &(texte,textpr,mnemo)
!
!***********************************************************************
! ARTEMIS   V6P1                                   21/08/2010
!***********************************************************************
!
!brief    GIVES THE VARIABLE NAMES FOR THE RESULTS AND GEOMETRY
!+                FILES (TEXT) AND FOR THE PREVIOUS COMPUTATION
!+                RESULTS FILE (TEXTPR).
!+
!+                TEXT AND TEXTPR ARE GENERALLY EQUAL EXCEPT IF THE
!+                PREVIOUS COMPUTATION COMES FROM ANOTHER SOFTWARE.
!
!history  D. AELBRECHT (LNH)
!+        13/01/1998
!+        V5P1
!+
!
!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
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| MNEMO          |---| ALIASES FOR VARIALBLES
!| TEXTE          |<--| NAME OF VARIABLES
!| TEXTPR         |<--| VARIABLES NAME OF PREVIOUS CALCULATION
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE interface_artemis, ex_nomvar_artemis => nomvar_artemis
      USE declarations_artemis, ONLY : maxvar,nvar_art
      USE declarations_special
      IMPLICIT NONE
!
      CHARACTER(LEN=32) :: TEXTE(maxvar),TEXTPR(maxvar)
      CHARACTER(LEN=8) :: MNEMO(maxvar)
!
!-----------------------------------------------------------------------
!
!  ENGLISH
!
      IF(lng.EQ.lng_en) THEN
!
      texte(1 ) = 'WAVE HEIGHT     M               '
      texte(2 ) = 'WAVE PHASE      RAD             '
      texte(3 ) = 'U0 SURFACE      M/S             '
      texte(4 ) = 'V0 SURFACE      M/S             '
      texte(5 ) = 'FREE SURFACE    M               '
      texte(6 ) = 'BOTTOM          M               '
      texte(7 ) = 'STILL WATER H   M               '
      texte(8 ) = 'PHASE VELOCITY  M/S             '
      texte(9 ) = 'GROUP VELOCITY  M/S             '
      texte(10) = 'WAVE NUMBER     1/M             '
      texte(11) = 'REAL POTENTIAL  M2/S            '
      texte(12) = 'IMAG POTENTIAL  M2/S            '
      texte(13) = 'PRIVATE 1       UNIT   ??       '
      texte(14) = 'PRIVATE 2       UNIT   ??       '
      texte(15) = 'PRIVATE 3       UNIT   ??       '
      texte(16) = 'PRIVATE 4       UNIT   ??       '
      texte(17) = 'T01             S               '
      texte(18) = 'T02             S               '
      texte(19) = 'TM              S               '
      texte(20) = 'FORCE_FX        M/S2            '
      texte(21) = 'FORCE_FY        M/S2            '
      texte(22) = 'WAVE INCIDENCE  DEG             '
      texte(23) = 'QB                              '
      texte(24) = 'STRESS_SXX      M3/S2           '
      texte(25) = 'STRESS_SXY      M3/S2           '
      texte(26) = 'STRESS_SYY      M3/S2           '
!
! TEXTPR IS USED TO READ PREVIOUS COMPUTATION FILES.
! IN GENERAL TEXTPR=TEXTE UNLESS ANOTHER CODE WAS USED TO
! GENERATE THE PREVIOUS RESULT, IN WHICH CASE THE OUTPUT
! VARIABLE NAMES HAVE TO BE WRITTEN HERE.
!
      textpr(1 ) = 'WAVE HEIGHT     M               '
      textpr(2 ) = 'WAVE PHASE      RAD             '
      textpr(3 ) = 'U0 SURFACE      M/S             '
      textpr(4 ) = 'V0 SURFACE      M/S             '
      textpr(5 ) = 'FREE SURFACE    M               '
      textpr(6 ) = 'BOTTOM          M               '
      textpr(7 ) = 'STILL WATER H   M               '
      textpr(8 ) = 'PHASE VELOCITY  M/S             '
      textpr(9 ) = 'GROUP VELOCITY  M/S             '
      textpr(10) = 'WAVE NUMBER     1/M             '
      textpr(11) = 'REAL POTENTIAL  M2/S            '
      textpr(12) = 'IMAG POTENTIAL  M2/S            '
      textpr(13) = 'PRIVATE 1       UNIT   ??       '
      textpr(14) = 'PRIVATE 2       UNIT   ??       '
      textpr(15) = 'PRIVATE 3       UNIT   ??       '
      textpr(16) = 'PRIVATE 4       UNIT   ??       '
      textpr(17) = 'T01             S               '
      textpr(18) = 'T02             S               '
      textpr(19) = 'TM              S               '
      textpr(20) = 'FORCE_FX        M/S2            '
      textpr(21) = 'FORCE_FY        M/S2            '
      textpr(22) = 'WAVE INCIDENCE  DEG             '
      textpr(23) = 'QB                              '
      textpr(24) = 'STRESS_SXX      M3/S2           '
      textpr(25) = 'STRESS_SXY      M3/S2           '
      textpr(26) = 'STRESS_SYY      M3/S2           '
!
!-----------------------------------------------------------------------
!
!  FRENCH OR OTHER
!
      ELSE
!
      texte(1 ) = 'HAUTEUR HOULE   M               '
      texte(2 ) = 'PHASE HOULE     RAD             '
      texte(3 ) = 'U0 SURFACE      M/S             '
      texte(4 ) = 'V0 SURFACE      M/S             '
      texte(5 ) = 'SURFACE LIBRE   M               '
      texte(6 ) = 'FOND            M               '
      texte(7 ) = 'H EAU REPOS     M               '
      texte(8 ) = 'VITESSE PHASE   M/S             '
      texte(9 ) = 'VITESSE GROUPE  M/S             '
      texte(10) = 'NOMBRE ONDE     1/M             '
      texte(11) = 'POTENTIEL REEL  M2/S            '
      texte(12) = 'POTENTIEL IMAG  M2/S            '
      texte(13) = 'PRIVE 1         UNITES ??       '
      texte(14) = 'PRIVE 2         UNITES ??       '
      texte(15) = 'PRIVE 3         UNITES ??       '
      texte(16) = 'PRIVE 4         UNITES ??       '
      texte(17) = 'T01             S               '
      texte(18) = 'T02             S               '
      texte(19) = 'TM              S               '
      texte(20) = 'FORCE_FX        M/S2            '
      texte(21) = 'FORCE_FY        M/S2            '
      texte(22) = 'INCIDENCE HOULE DEG             '
      texte(23) = 'QB                              '
      texte(24) = 'CONTRAINTE_SXX  M3/S2           '
      texte(25) = 'CONTRAINTE_SXY  M3/S2           '
      texte(26) = 'CONTRAINTE_SYY  M3/S2           '
!
! TEXTPR SERT A LA LECTURE DES FICHIERS DE CALCULS PRECEDENTS
! A PRIORI TEXTPR=TEXTE MAIS ON PEUT ESSAYER DE FAIRE UNE SUITE
! DE CALCUL A PARTIR D'UN AUTRE CODE.
!
      textpr(1 ) = 'HAUTEUR HOULE   M               '
      textpr(2 ) = 'PHASE HOULE     RAD             '
      textpr(3 ) = 'U0 SURFACE      M/S             '
      textpr(4 ) = 'V0 SURFACE      M/S             '
      textpr(5 ) = 'SURFACE LIBRE   M               '
      textpr(6 ) = 'FOND            M               '
      textpr(7 ) = 'H EAU REPOS     M               '
      textpr(8 ) = 'VITESSE PHASE   M/S             '
      textpr(9 ) = 'VITESSE GROUPE  M/S             '
      textpr(10) = 'NOMBRE ONDE     1/M             '
      textpr(11) = 'POTENTIEL REEL  M2/S            '
      textpr(12) = 'POTENTIEL IMAG  M2/S            '
      textpr(13) = 'PRIVE 1         UNITES ??       '
      textpr(14) = 'PRIVE 2         UNITES ??       '
      textpr(15) = 'PRIVE 3         UNITES ??       '
      textpr(16) = 'PRIVE 4         UNITES ??       '
      textpr(17) = 'T01             S               '
      textpr(18) = 'T02             S               '
      textpr(19) = 'TM              S               '
      textpr(20) = 'FORCE_FX        M/S2            '
      textpr(21) = 'FORCE_FY        M/S2            '
      textpr(22) = 'INCIDENCE HOULE DEG             '
      textpr(23) = 'QB                              '
      textpr(24) = 'CONTRAINTE_SXX  M3/S2           '
      textpr(25) = 'CONTRAINTE_SXY  M3/S2           '
      textpr(26) = 'CONTRAINTE_SYY  M3/S2           '
!
      ENDIF
!
!-----------------------------------------------------------------------
!
!   ALIASES FOR THE VARIABLES IN THE STEERING FILE
!
!     USES THE OLD : LETVAR/&#039 DATED; APUVSBHCGKIJDEFOLMNWXT???? ' /
!
      mnemo(1)    = 'HS      '
      mnemo(2)    = 'PHAS    '
      mnemo(3)    = 'U0      '
      mnemo(4)    = 'V0      '
      mnemo(5)    = 'ZS      '
      mnemo(6)    = 'ZF      '
      mnemo(7)    = 'HW      '
      mnemo(8)    = 'C       '
      mnemo(9)    = 'CG      '
      mnemo(10)   = 'K       '
      mnemo(11)   = 'PHIR    '
      mnemo(12)   = 'PHII    '
      mnemo(13)   = 'D       '
      mnemo(14)   = 'E       '
      mnemo(15)   = 'F       '
      mnemo(16)   = 'G       '
      mnemo(17)   = 'T01     '
      mnemo(18)   = 'T02     '
      mnemo(19)   = 'TM      '
      mnemo(20)   = 'FX      '
      mnemo(21)   = 'FY      '
      mnemo(22)   = 'INC     '
      mnemo(23)   = 'QB      '
      mnemo(24)   = 'SXX     '
      mnemo(25)   = 'SXY     '
      mnemo(26)   = 'SYY     '
      nvar_art = 26
!
!-----------------------------------------------------------------------
!
      RETURN
      END