Changeset 2604 for branches/CMIP5_IPSL

Timestamp:

2011-02-22T10:33:21+01:00 (13 years ago)

Author:

cetlod

Message:

ipslcmip5:Formatted writting of total ocean carbon flux in ocean.output file

File:

• branches/CMIP5_IPSL/NEMO/TOP_SRC/PISCES/p4zflx.F90 (modified) (1 diff)

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

@@ -198 +198 @@
             WRITE(numout,*) ' Global mean of atmospheric pCO2 (ppm) at it= ', kt, ' date= ', ndastp, ' : ',t_atm_co2_flx
             WRITE(numout,*) 
-            WRITE(numout,*) ' Cumulative total Flux of Carbon out of the ocean (PgC) :' , t_oce_co2_flx
+            WRITE(numout,9000) ' Cumulative total Flux of Carbon out of the ocean (PgC) :   ' , t_oce_co2_flx
             WRITE(numout,*) 
          ENDIF
          !
       ENDIF
+9000  FORMAT(A60,F17.14)
 
       IF(ln_ctl)   THEN  ! print mean trends (used for debugging)