Changeset 1298 for trunk/NEMO/TOP_SRC/PISCES/p4zflx.F90

Timestamp:

2009-02-09T09:48:20+01:00 (15 years ago)

Author:

cetlod

Message:

correction of minor bug in PISCES model ( mpi case ), see ticket:327

File:

• trunk/NEMO/TOP_SRC/PISCES/p4zflx.F90 (modified) (4 diffs)

trunk/NEMO/TOP_SRC/PISCES/p4zflx.F90

@@ -24 +24 @@
    USE p4zche
 
+   USE lib_mpp
+
    IMPLICIT NONE
    PRIVATE
@@ -34 +36 @@
 
    REAL(wp) :: &
-     tco2flx = 0.            !: Total flux of carbon per year
+     tco2flx                 !: Total flux of carbon per year
 
    !!* Substitution
@@ -184 +186 @@
 
       IF( MOD( kt, nspyr ) == 0 ) THEN
+        IF( lk_mpp ) CALL mpp_sum( tco2flx )   ! sum over the global domain
+
         WRITE(numout,*) ' Atmospheric pCO2    :'
         WRITE(numout,*) '-------------------- : ',kt,'  ',atcco2
         WRITE(numout,*) '(ppm)'
         WRITE(numout,*) 'Total Flux of Carbon :'
-        WRITE(numout,*) '-------------------- : ',tco2flx * 12./1E15
+        WRITE(numout,*) '-------------------- : ',tco2flx * 12. / 1e15
         WRITE(numout,*) '(GtC/an)'
         tco2flx = 0.
@@ -227 +231 @@
       ENDIF
 
+      ! Initialization of total Flux of Carbon
+      tco2flx = 0.
+
    END SUBROUTINE p4z_flx_init