Changeset 1119 for trunk/NEMO/TOP_SRC/PISCES/p4zmicro.F90

Timestamp:

2008-06-20T17:17:41+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/TOP_SRC/PISCES/p4zmicro.F90 (modified) (2 diffs)

trunk/NEMO/TOP_SRC/PISCES/p4zmicro.F90

@@ -16 +16 @@
    USE trc
    USE oce_trc         !
-   USE trp_trc         ! 
+   USE trc         ! 
    USE sms_pisces      ! 
    USE prtctl_trc
@@ -229 +229 @@
       !! ** Purpose :   Initialization of microzooplankton parameters
       !!
-      !! ** Method  :   Read the natzoo namelist and check the parameters
+      !! ** Method  :   Read the nampiszoo namelist and check the parameters
       !!      called at the first timestep (nittrc000)
       !!
-      !! ** input   :   Namelist natzoo
+      !! ** input   :   Namelist nampiszoo
       !!
       !!----------------------------------------------------------------------
 
-      NAMELIST/natzoo/ grazrat,resrat,mzrat,xpref2c, xpref2p, &
+      NAMELIST/nampiszoo/ grazrat,resrat,mzrat,xpref2c, xpref2p, &
          &             xpref2d, xkgraz, epsher, sigma1, unass
 
       REWIND( numnat )                     ! read numnat
-      READ  ( numnat, natzoo )
+      READ  ( numnat, nampiszoo )
 
       IF(lwp) THEN                         ! control print
          WRITE(numout,*) ' '
-         WRITE(numout,*) ' Namelist parameters for microzooplankton, natzoo'
+         WRITE(numout,*) ' Namelist parameters for microzooplankton, nampiszoo'
          WRITE(numout,*) ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
          WRITE(numout,*) '    zoo preference for POC                    xpref2c    =', xpref2c