Changeset 1351

Timestamp:

2009-03-31T10:05:31+02:00 (15 years ago)

Author:

cetlod

Message:

correction of minor bug in PISCES/p4zprod.F90 module, see ticket:384

File:

• trunk/NEMO/TOP_SRC/PISCES/p4zprod.F90 (modified) (3 diffs)

trunk/NEMO/TOP_SRC/PISCES/p4zprod.F90

@@ -70 +70 @@
       INTEGER, INTENT(in) :: kt, jnt
       INTEGER  ::   ji, jj, jk, nspyr
-      REAL(wp) ::   zsilfac, zfact, zrfact2
+      REAL(wp) ::   zsilfac, zfact
       REAL(wp) ::   zprdiachl, zprbiochl, zsilim, ztn, zadap, zadap2
       REAL(wp) ::   zlim, zsilfac2, zsiborn, zprod, zetot2, zmax, zproreg, zproreg2
@@ -76 +76 @@
       REAL(wp) ::   zpislopen  , zpislope2n
       REAL(wp) ::   zrum, zcodel, zargu, zvol
+#if defined key_trc_diaadd && defined key_trc_dia3d
+      REAL(wp) ::   zrfact2
+#endif
       REAL(wp), DIMENSION(jpi,jpj)     ::   zmixnano   , zmixdiat, zstrn
       REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zpislopead , zpislopead2
@@ -351 +354 @@
 
 
-      IF( MOD( kt, nspyr ) == 0 ) THEN
+      IF( MOD( kt, nspyr ) == 0 .AND. jnt == nrdttrc ) THEN
         IF( lk_mpp ) CALL mpp_sum( tpp )
         WRITE(numout,*) 'Total PP :'