Changeset 1601 for trunk/NEMO/OPA_SRC/mppini_2.h90

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/mppini_2.h90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/mppini_2.h90

@@ -39 +39 @@
       !!   9.0  !  04-01  (G. Madec, J.M Molines)  F90 : free form , north fold jpni > 1
       !!----------------------------------------------------------------------
-      !! * Modules used
       USE in_out_manager  ! I/O Manager
       USE iom
-   
-      !! Local variables
+      !! 
       INTEGER :: ji, jj, jn, jproc, jarea     ! dummy loop indices
       INTEGER ::  inum                        ! temporary logical unit
@@ -71 +69 @@
 
       ! read namelist for ln_zco
-      NAMELIST/nam_zgr/ ln_zco, ln_zps, ln_sco
+      NAMELIST/namzgr/ ln_zco, ln_zps, ln_sco
 
       !!----------------------------------------------------------------------
@@ -78 +76 @@
       !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
       !!----------------------------------------------------------------------
-      ! Read Namelist nam_zgr : vertical coordinate'
-      ! ---------------------
-      REWIND ( numnam )
-      READ   ( numnam, nam_zgr )
+      
+      REWIND ( numnam )              ! Read Namelist namzgr : vertical coordinate'
+      READ   ( numnam, namzgr )
 
       IF(lwp)WRITE(numout,*)