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

trunk/NEMO/TOP_SRC/PISCES/p4zbio.F90

@@ -15 +15 @@
    !!----------------------------------------------------------------------
    USE oce_trc         !
-   USE trp_trc         ! 
+   USE trc         ! 
    USE sms_pisces      ! 
    USE p4zsink         ! 
@@ -131 +131 @@
 
 # if defined key_trc_dia3d && defined key_kriest
-!!gm potential bug  hard coded index on trc3d
-      trc3d(:,:,:,11) = tra(:,:,:,jpcal) * xnegtr(:,:,:) * 1.e3 * rfact2r
+      trc3d(:,:,:,jp_pcs0_3d + 10) = tra(:,:,:,jpcal) * xnegtr(:,:,:) * 1.e3 * rfact2r
 # endif
       !