Changeset 1255 for trunk/NEMO/TOP_SRC/PISCES/p4zprod.F90

Timestamp:

2009-01-13T11:20:17+01:00 (15 years ago)

Author:

cetlod

Message:

minor modifications in all top models, see ticket:299

File:

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

trunk/NEMO/TOP_SRC/PISCES/p4zprod.F90

@@ -73 +73 @@
       REAL(wp) ::   zmxltst, zmxlday, zlim1
       REAL(wp) ::   zpislopen  , zpislope2n
-      REAL(wp) ::   zrum, zcodel, zargu
+      REAL(wp) ::   zrum, zcodel, zargu, zvol
       REAL(wp), DIMENSION(jpi,jpj)     ::   zmixnano   , zmixdiat, zstrn
       REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zpislopead , zpislopead2
@@ -355 +355 @@
         DO jj = 1, jpj
           DO ji = 1, jpi
-             tpp  = tpp + ( zprorca(ji,jj,jk) + zprorcad(ji,jj,jk) )  &
+             zvol = cvol(ji,jj,jk)
 #if defined key_off_degrad
-             &              * facvol(ji,jj,jk)   &
+             zvol = zvol * facvol(ji,jj,jk)
 #endif
-             &              * e1t(ji,jj) * e2t(ji,jj) * fse3t(ji,jj,jk) * tmask_i(ji,jj)
+             tpp  = tpp + ( zprorca(ji,jj,jk) + zprorcad(ji,jj,jk) ) * zvol
           END DO
         END DO
       END DO
+
+      IF( lk_mpp ) CALL mpp_sum( tpp )
 
       IF( MOD( kt, nspyr ) == 0 ) THEN