Changeset 2504 for branches/CMIP5_IPSL/NEMO/TOP_SRC/PISCES/p4zprod.F90

Timestamp:

2010-12-23T09:18:45+01:00 (14 years ago)

Author:

cetlod

Message:

Computation of monthly mean ocean carbon flux in PISCES

File:

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

branches/CMIP5_IPSL/NEMO/TOP_SRC/PISCES/p4zprod.F90

@@ -49 +49 @@
       rpis180                    ,  &  !: rpi / 180
       tpp                              !: Total primary production
-
-   INTEGER  ::  nspyr                  !: number of timesteps per year
 
    !!* Substitution
@@ -347 +345 @@
       END DO
 
-
-      IF( MOD( kt, nspyr ) == 0 .AND. jnt == nrdttrc ) THEN
+     IF( kt == nitend .AND. jnt == nrdttrc ) THEN
         IF( lk_mpp ) CALL mpp_sum( tpp )
-        WRITE(numout,*) 'Total PP :'
+        WRITE(numout,*) 'Total PP (Gtc) :'
         WRITE(numout,*) '-------------------- : ',tpp * 12. / 1.E12
-        WRITE(numout,*) '(GtC/yr)'
-        tpp = 0.
+        WRITE(numout,*)
       ENDIF
 
@@ -469 +465 @@
       ENDIF
 
-      ! number of timesteps per year
-      nspyr  = INT( nyear_len(1) * rday / rdt )
-
       rpis180   = rpi / 180.
       texcret   = 1.0 - excret