Changeset 3481 for branches/2012/dev_r3438_LOCEAN15_PISLOB/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zprod.F90

Timestamp:

2012-10-02T14:38:42+02:00 (12 years ago)

Author:

cetlod

Message:

NEMOGCM_dev_r3438_LOCEAN15_PISLOB: output a text file for carbon budget

File:

• branches/2012/dev_r3438_LOCEAN15_PISLOB/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zprod.F90 (modified) (2 diffs)

branches/2012/dev_r3438_LOCEAN15_PISLOB/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zprod.F90

@@ -52 +52 @@
    REAL(wp) :: texcret                !: 1 - excret 
    REAL(wp) :: texcret2               !: 1 - excret2        
-   REAL(wp) :: tpp                    !: Total primary production
 
 
@@ -409 +408 @@
      ! Total primary production per year
      tpp = tpp + glob_sum( ( zprorca(:,:,:) + zprorcad(:,:,:) ) * cvol(:,:,:) )
-
-     IF( kt == nitend .AND. jnt == nrdttrc ) THEN
-        IF (lwp) THEN
-           WRITE(numout,*) 'Total PP (Gtc) :'
-           WRITE(numout,*) '-------------------- : ',tpp * 12. / 1.E12
-           WRITE(numout,*) 
-        ENDIF
-      ENDIF
 
      IF( ln_diatrc ) THEN