Changeset 1601 for trunk/NEMO/OPA_SRC/TRA/traadv.F90

Timestamp:

2009-08-11T12:09:19+02:00 (15 years ago)

Author:

ctlod

Message:

Doctor naming of OPA namelist variables , see ticket: #526

File:

• trunk/NEMO/OPA_SRC/TRA/traadv.F90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/TRA/traadv.F90

@@ -31 +31 @@
    PUBLIC   tra_adv    ! routine called by step module
  
-   !!* Namelist nam_traadv
+   !                                                   !!* Namelist namtra_adv *
    LOGICAL, PUBLIC ::   ln_traadv_cen2   = .TRUE.       ! 2nd order centered scheme flag
    LOGICAL, PUBLIC ::   ln_traadv_tvd    = .FALSE.      ! TVD scheme flag
@@ -136 +136 @@
       INTEGER ::   ioptio
 
-      NAMELIST/nam_traadv/ ln_traadv_cen2 , ln_traadv_tvd,    &
+      NAMELIST/namtra_adv/ ln_traadv_cen2 , ln_traadv_tvd,    &
          &                 ln_traadv_muscl, ln_traadv_muscl2, &
          &                 ln_traadv_ubs  , ln_traadv_qck
       !!----------------------------------------------------------------------
 
-      REWIND ( numnam )               ! Read Namelist nam_traadv : tracer advection scheme
-      READ   ( numnam, nam_traadv )
+      REWIND ( numnam )               ! Read Namelist namtra_adv : tracer advection scheme
+      READ   ( numnam, namtra_adv )
 
       IF(lwp) THEN                    ! Namelist print
@@ -148 +148 @@
          WRITE(numout,*) 'tra_adv_ctl : choice/control of the tracer advection scheme'
          WRITE(numout,*) '~~~~~~~~~~~'
-         WRITE(numout,*) '       Namelist nam_traadv : chose a advection scheme for tracers'
-         WRITE(numout,*) '          2nd order advection scheme     ln_traadv_cen2   = ', ln_traadv_cen2
-         WRITE(numout,*) '          TVD advection scheme           ln_traadv_tvd    = ', ln_traadv_tvd
-         WRITE(numout,*) '          MUSCL  advection scheme        ln_traadv_muscl  = ', ln_traadv_muscl
-         WRITE(numout,*) '          MUSCL2 advection scheme        ln_traadv_muscl2 = ', ln_traadv_muscl2
-         WRITE(numout,*) '          UBS    advection scheme        ln_traadv_ubs    = ', ln_traadv_ubs
-         WRITE(numout,*) '          QUICKEST advection scheme      ln_traadv_qck    = ', ln_traadv_qck
+         WRITE(numout,*) '   Namelist namtra_adv : chose a advection scheme for tracers'
+         WRITE(numout,*) '      2nd order advection scheme     ln_traadv_cen2   = ', ln_traadv_cen2
+         WRITE(numout,*) '      TVD advection scheme           ln_traadv_tvd    = ', ln_traadv_tvd
+         WRITE(numout,*) '      MUSCL  advection scheme        ln_traadv_muscl  = ', ln_traadv_muscl
+         WRITE(numout,*) '      MUSCL2 advection scheme        ln_traadv_muscl2 = ', ln_traadv_muscl2
+         WRITE(numout,*) '      UBS    advection scheme        ln_traadv_ubs    = ', ln_traadv_ubs
+         WRITE(numout,*) '      QUICKEST advection scheme      ln_traadv_qck    = ', ln_traadv_qck
     ENDIF
 
@@ -166 +166 @@
       IF( lk_esopa         )   ioptio =          1
 
-      IF( ioptio /= 1 )   CALL ctl_stop( 'Choose ONE advection scheme in namelist nam_traadv' )
+      IF( ioptio /= 1 )   CALL ctl_stop( 'Choose ONE advection scheme in namelist namtra_adv' )
 
       IF( n_cla == 1 .AND. .NOT. ln_traadv_cen2 )   &