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

trunk/NEMO/TOP_SRC/PISCES/p4zprod.F90

@@ -15 +15 @@
    USE trc
    USE oce_trc         !
-   USE trp_trc         ! 
    USE sms_pisces      ! 
    USE prtctl_trc
@@ -376 +375 @@
 !   Supplementary diagnostics
 !   -------------------------
-      trc3d(:,:,:,4)  = etot(:,:,:)
-      trc3d(:,:,:,5)  = zprorca(:,:,:)  * zrfact2
-      trc3d(:,:,:,6)  = zprorcad(:,:,:) * zrfact2
-      trc3d(:,:,:,7)  = zpronew(:,:,:)  * zrfact2
-      trc3d(:,:,:,8)  = zpronewd(:,:,:) * zrfact2
-      trc3d(:,:,:,9)  = zprorcad(:,:,:) * zysopt(:,:,:) * zrfact2
-      trc3d(:,:,:,10) = zprofed(:,:,:) * zrfact2
+      trc3d(:,:,:,jp_pcs0_3d + 3)  = etot(:,:,:)
+      trc3d(:,:,:,jp_pcs0_3d + 4)  = zprorca(:,:,:)  * zrfact2
+      trc3d(:,:,:,jp_pcs0_3d + 5)  = zprorcad(:,:,:) * zrfact2
+      trc3d(:,:,:,jp_pcs0_3d + 6)  = zpronew(:,:,:)  * zrfact2
+      trc3d(:,:,:,jp_pcs0_3d + 7)  = zpronewd(:,:,:) * zrfact2
+      trc3d(:,:,:,jp_pcs0_3d + 8)  = zprorcad(:,:,:) * zysopt(:,:,:) * zrfact2
+      trc3d(:,:,:,jp_pcs0_3d + 9) = zprofed(:,:,:) * zrfact2
 #if ! defined key_kriest
-      trc3d(:,:,:,11) = zprofen(:,:,:) * zrfact2
+      trc3d(:,:,:,jp_pcs0_3d + 10) = zprofen(:,:,:) * zrfact2
 #endif
 #endif
@@ -403 +402 @@
       !! ** Purpose :   Initialization of phytoplankton production parameters
       !!
-      !! ** Method  :   Read the natprod namelist and check the parameters
+      !! ** Method  :   Read the nampisprod namelist and check the parameters
       !!      called at the first timestep (nittrc000)
       !!
-      !! ** input   :   Namelist natprod
+      !! ** input   :   Namelist nampisprod
       !!
       !!----------------------------------------------------------------------
 
-      NAMELIST/natprod/ pislope, pislope2, excret, excret2, chlcnm, chlcdm,   &
+      NAMELIST/nampisprod/ pislope, pislope2, excret, excret2, chlcnm, chlcdm,   &
          &              fecnm, fecdm, grosip
 
       REWIND( numnat )                     ! read numnat
-      READ  ( numnat, natprod )
+      READ  ( numnat, nampisprod )
 
       IF(lwp) THEN                         ! control print
          WRITE(numout,*) ' '
-         WRITE(numout,*) ' Namelist parameters for phytoplankton growth, natprod'
+         WRITE(numout,*) ' Namelist parameters for phytoplankton growth, nampisprod'
          WRITE(numout,*) ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
          WRITE(numout,*) '    mean Si/C ratio                           grosip    =', grosip