Changeset 498 for trunk/NEMO/OFF_SRC/ZDF/zdfini.F90

Timestamp:

2006-09-12T13:07:10+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_065:CE:change the name of namelist

File:

• trunk/NEMO/OFF_SRC/ZDF/zdfini.F90 (modified) (3 diffs)

trunk/NEMO/OFF_SRC/ZDF/zdfini.F90

@@ -33 +33 @@
       !! ** Purpose :   initializations of the vertical ocean physics
       !!
-      !! ** Method  :   Read namelist namzdf, control cpp keys
+      !! ** Method  :   Read namelist nam_zdf, control cpp keys
       !!
       !! History :
@@ -42 +42 @@
 
       !! * Namelist
-      NAMELIST/namzdf/ avt0, ln_zdfnpc
+      NAMELIST/nam_zdf/ avt0, ln_zdfnpc
 
-      ! Read namzdf namelist : vertical mixing parameters
+      ! Read nam_zdf namelist : vertical mixing parameters
       ! --------------------
       REWIND( numnam )
-      READ  ( numnam, namzdf )
+      READ  ( numnam, nam_zdf )
 
       ! Parameter print
@@ -55 +55 @@
          WRITE(numout,*) 'zdf_init: vertical physics'
          WRITE(numout,*) '~~~~~~~~'
-         WRITE(numout,*) '          Namelist namzdf : set vertical mixing mixing parameters'
+         WRITE(numout,*) '          Namelist nam_zdf : set vertical mixing mixing parameters'
          WRITE(numout,*) '             non-penetrative convection       ln_zdfnpc = ', ln_zdfnpc
          WRITE(numout,*) '             vertical eddy diffusivity           avt0   = ', avt0