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

trunk/NEMO/TOP_SRC/PISCES/p4zlim.F90

@@ -16 +16 @@
    USE trc
    USE oce_trc         !
-   USE trp_trc         ! 
+   USE trc         ! 
    USE sms_pisces      ! 
 
@@ -180 +180 @@
       !! ** Purpose :   Initialization of nutrient limitation parameters
       !!
-      !! ** Method  :   Read the natlim namelist and check the parameters
+      !! ** Method  :   Read the nampislim namelist and check the parameters
       !!      called at the first timestep (nittrc000)
       !!
-      !! ** input   :   Namelist natlim
+      !! ** input   :   Namelist nampislim
       !!
       !!----------------------------------------------------------------------
 
-      NAMELIST/natlim/ conc0, conc1, conc2, conc2m, conc3, conc3m,   &
+      NAMELIST/nampislim/ conc0, conc1, conc2, conc2m, conc3, conc3m,   &
          &             concnnh4, concdnh4, xksi1, xksi2, xkdoc, caco3r
 
       REWIND( numnat )                     ! read numnat
-      READ  ( numnat, natlim )
+      READ  ( numnat, nampislim )
 
       IF(lwp) THEN                         ! control print
          WRITE(numout,*) ' '
-         WRITE(numout,*) ' Namelist parameters for nutrient limitations, natlim'
+         WRITE(numout,*) ' Namelist parameters for nutrient limitations, nampislim'
          WRITE(numout,*) ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
          WRITE(numout,*) '    mean rainratio                            caco3r    =', caco3r