nomtra.f

Go to the documentation of this file.

!                       *****************
                        SUBROUTINE nomtra
!                       *****************
!
     &(nomtac,nomtpa,ntrac,ntrpa)
!
!***********************************************************************
! POSTEL3D VERSION 5.1   01/09/99   T. DENOT (LNH) 01 30 87 74 89
! FORTRAN90
!***********************************************************************
!
! FONCTION  :  FIXE LES NOMS DES TRACEURS (ACTIFS OU PASSIFS)
!              POUR LA VISUALISATION DANS RUBENS
!
!-----------------------------------------------------------------------
!                             ARGUMENTS
! .________________.____.______________________________________________.
! |      NOM       |MODE|                   ROLE |
! |________________|____|______________________________________________|
! |   NOMTAC       |<-- | NOMS DES TRACEURS ACTIFS                     |
! |   NOMTPA       |<-- | NOMS DES TRACEURS PASSIFS                    |
! |   NTRAC        |<-- | NOMBRE DE TRACEURS ACTIFS                    |
! |   NTRPA        |<-- | NOMBRE DE TRACEURS PASSIFS                   |
! |________________|____|______________________________________________|
! MODE : -->(DONNEE NON MODIFIEE), <--(RESULTAT), <-->(DONNEE MODIFIEE)
!
!-----------------------------------------------------------------------
!
! APPELE PAR : ECRDEB
!
! SOUS-PROGAMME APPELE : NEANT
!
!**********************************************************************
!
      USE bief
      USE declarations_special
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      INTEGER, INTENT(IN) :: NTRAC,NTRPA
      CHARACTER(LEN=32), INTENT(INOUT) :: NOMTAC(ntrac),NOMTPA(ntrpa)
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      INTEGER I
      CHARACTER(LEN=32) TEXTE
!
!-----------------------------------------------------------------------
!
! PAR DEFAUT CETTE ROUTINE DONNE DES NOMS NEUTRES
! (TRACEUR ACTIF XX OU TRACEUR PASSIF XX)
!
! POUR DONNER SES PROPRES NOMS :
! RAJOUTER ENSUITE DES LIGNES DU TYPE DE CELLES
! QUI SONT COMMENTARISEES
!
! ATTENTION : BIEN RESPECTER LA LONGUEUR DE 32 CARACTERES
! (LES 16 PREMIERS POUR LE NOM, LE RESTE POUR L'UNITE)
!
! ********************************
! TRACEURS ACTIFS / ACTIVE TRACERS
! ********************************
!
!  ENGLISH
!
      IF(lng.EQ.lng_en) THEN
!
      DO i=1,ntrac
        texte = 'ACTIVE TRACER '
        texte = texte(1:14)//char(48+i)//'                 '
        nomtac(i) = texte
      ENDDO
!
!  EXAMPLE
!
!      NOMTAC(1)='TEMPERATURE     C               '
!      NOMTAC(2)='SALINITY        G/L             '
!
!-----------------------------------------
!
!  FRANCAIS OU AUTRE
!
      ELSE
!
      DO i=1,ntrac
        texte = 'TRACEUR ACTIF '
        texte = texte(1:14)//char(48+i)//'                 '
        nomtac(i) = texte
      ENDDO
!
!  EXEMPLE
!
!      NOMTAC(1)='TEMPERATURE     C               '
!      NOMTAC(2)='SALINITE        G/L             '
!
!
      ENDIF
!
!-----------------------------------------
!
! **********************************
! TRACEURS PASSIFS / PASSIVE TRACERS
! **********************************
!
!  ENGLISH
!
      IF(lng.EQ.lng_en) THEN
!
      DO i=1,ntrpa
        texte = 'PASSIVE TRACER '
        texte = texte(1:15)//char(48+i)//'                 '
        nomtpa(i) = texte
      ENDDO
!
!
!  EXAMPLE
!
!      NOMTPA(1)='OXYGEN          G/L             '
!
!-----------------------------------------
!
!  FRANCAIS OU AUTRE
!
      ELSE
!
      DO i=1,ntrpa
        texte = 'TRACEUR PASSIF '
        texte = texte(1:15)//char(48+i)//'                 '
        nomtpa(i) = texte
      ENDDO
!
!  EXEMPLE
!
!      NOMTPA(1)='OXYGENE         G/L             '
!
!
      ENDIF
!
!-----------------------------------------
!
!
!
!-----------------------------------------------------------------------
!
      RETURN
      END SUBROUTINE