Changeset 1124 for trunk/NEMO/OFF_SRC/LDF/ldftra.F90

Timestamp:

2008-06-20T23:22:18+02:00 (16 years ago)

Author:

cetlod

Message:

style of all top namelist has been modified ; update modules to take it into account, see ticket:196

File:

• trunk/NEMO/OFF_SRC/LDF/ldftra.F90 (modified) (3 diffs)

trunk/NEMO/OFF_SRC/LDF/ldftra.F90

@@ -69 +69 @@
       LOGICAL ::   ll_print = .FALSE.   ! =T print eddy coef. in numout
        
-      NAMELIST/nam_traldf/ ln_traldf_lap  , ln_traldf_bilap,                &
+      NAMELIST/namtraldf/ ln_traldf_lap  , ln_traldf_bilap,                &
          &                 ln_traldf_level, ln_traldf_hor, ln_traldf_iso,   &
          &                 aht0, ahtb0, aeiv0
@@ -77 +77 @@
       ! =============================================
     
-      ! Read Namelist nam_traldf : Lateral physics on tracers
+      ! Read Namelist namtraldf : Lateral physics on tracers
       REWIND( numnam )
-      READ  ( numnam, nam_traldf )
+      READ  ( numnam, namtraldf )
 
       IF(lwp) THEN
@@ -85 +85 @@
          WRITE(numout,*) 'ldf_tra_init : lateral tracer physics'
          WRITE(numout,*) '~~~~~~~~~~~~ '
-         WRITE(numout,*) '          Namelist nam_traldf : lateral mixing coefficients'
+         WRITE(numout,*) '          Namelist namtraldf : lateral mixing coefficients'
          WRITE(numout,*) '             laplacian operator          ln_traldf_lap   = ', ln_traldf_lap
          WRITE(numout,*) '             bilaplacian operator        ln_traldf_bilap = ', ln_traldf_bilap