Changes between Version 16 and Version 17 of IPSLCM5ACo2

Timestamp:

12/09/10 16:49:39 (14 years ago)

Author:

cetlod

Comment:

--

IPSLCM5ACo2

@@ -122 +122 @@
  * PISCES est modifié pour diagnostiquer le flux total de carbone océanique cumulé sur la durée du run
 {{{
-      t_oce_co2_flx = t_oce_co2_flx + SUM( oce_co2(:,:) * tmask_i(:,:) )           ! Cumulative Total Flux of Carbon
+      t_oce_co2_flx = t_oce_co2_flx + SUM( oce_co2(:,:) * tmask_i(:,:) ) ! Cumulative Total Flux of Carbon
       IF( kt == nitend ) THEN
          !
-         IF( lk_mpp )   CALL mpp_sum( t_oce_co2_flx )                              ! sum over the global domain  
-         t_oce_co2_flx = (-1.) * t_oce_co2_flx  * 12. / 1.e15                      ! Conversion in PgC ; negative for out of the ocean
+         IF( lk_mpp )   CALL mpp_sum( t_oce_co2_flx )             ! sum over the global domain  
+         t_oce_co2_flx = (-1.) * t_oce_co2_flx  * 12. / 1.e15     ! Conversion in PgC ; negative for out of the ocean
          !
       ENDIF