Changeset 1119 for trunk/NEMO/TOP_SRC/PISCES/p4zmeso.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/p4zmeso.F90 (modified) (2 diffs)

trunk/NEMO/TOP_SRC/PISCES/p4zmeso.F90

@@ -16 +16 @@
    USE trc
    USE oce_trc         !
-   USE trp_trc         ! 
+   USE trc         ! 
    USE sms_pisces      ! 
    USE prtctl_trc
@@ -299 +299 @@
       !! ** Purpose :   Initialization of mesozooplankton parameters
       !!
-      !! ** Method  :   Read the natmes namelist and check the parameters
+      !! ** Method  :   Read the nampismes namelist and check the parameters
       !!      called at the first timestep (nittrc000)
       !!
-      !! ** input   :   Namelist natmes
+      !! ** input   :   Namelist nampismes
       !!
       !!----------------------------------------------------------------------
 
-      NAMELIST/natmes/ grazrat2,resrat2,mzrat2,xprefc, xprefp, &
+      NAMELIST/nampismes/ grazrat2,resrat2,mzrat2,xprefc, xprefp, &
          &             xprefz, xprefpoc, xkgraz2, epsher2, sigma2, unass2, grazflux
 
       REWIND( numnat )                     ! read numnat
-      READ  ( numnat, natmes )
+      READ  ( numnat, nampismes )
 
 
       IF(lwp) THEN                         ! control print
          WRITE(numout,*) ' ' 
-         WRITE(numout,*) ' Namelist parameters for mesozooplankton, natmes'
+         WRITE(numout,*) ' Namelist parameters for mesozooplankton, nampismes'
          WRITE(numout,*) ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
          WRITE(numout,*) '    zoo preference for phyto                  xprefc    =', xprefc