Changeset 1601 for trunk/NEMO/OPA_SRC/ZDF/zdfini.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/ZDF/zdfini.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/ZDF/zdfini.F90

@@ -54 +54 @@
       INTEGER ::   ioptio       ! temporary scalar
       !!
-      NAMELIST/nam_zdf/ rn_avm0, rn_avt0, nn_avb, nn_havtb, ln_zdfexp, nn_zdfexp,   &
+      NAMELIST/namzdf/ rn_avm0, rn_avt0, nn_avb, nn_havtb, ln_zdfexp, nn_zdfexp,   &
          &              ln_zdfevd, nn_evdm, rn_avevd, ln_zdfnpc, nn_npc, nn_npcp
       !!----------------------------------------------------------------------
 
-      REWIND( numnam )           !* Read nam_zdf namelist : vertical mixing parameters
-      READ  ( numnam, nam_zdf )
+      REWIND( numnam )           !* Read namzdf namelist : vertical mixing parameters
+      READ  ( numnam, namzdf )
 
       IF(lwp) THEN               !* Parameter print
@@ -65 +65 @@
          WRITE(numout,*) 'zdf_init: vertical physics'
          WRITE(numout,*) '~~~~~~~~'
-         WRITE(numout,*) '   Namelist nam_zdf : set vertical mixing mixing parameters'
+         WRITE(numout,*) '   Namelist namzdf : set vertical mixing mixing parameters'
          WRITE(numout,*) '      vertical eddy viscosity             rn_avm0   = ', rn_avm0
          WRITE(numout,*) '      vertical eddy diffusivity           rn_avt0   = ', rn_avt0