Changeset 1952 for branches/CMIP5_IPSL

Timestamp:

2010-06-24T17:18:04+02:00 (14 years ago)

Author:

mafoipsl

Message:

Incorporation of ticket #682: bug in diaar5 in CMIP5_IPSL branch.

File:

• branches/CMIP5_IPSL/NEMO/OPA_SRC/DIA/diaar5.F90 (modified) (1 diff)

branches/CMIP5_IPSL/NEMO/OPA_SRC/DIA/diaar5.F90

@@ -175 +175 @@
       thick0(:,:) = 0.e0
       DO jk = 1, jpkm1
-         vol0        = vol0        + SUM( area (:,:) * tmask(:,:,jk) ) * e3t_0(jk) 
-         thick0(:,:) = thick0(:,:) +    tmask_i(:,:) * tmask(:,:,jk)   * e3t_0(jk)
-      END DO
+         vol0        = vol0        + SUM( area (:,:) * tmask(:,:,jk) * fse3t_0(:,:,jk)  )
+         thick0(:,:) = thick0(:,:) +    tmask_i(:,:) * tmask(:,:,jk) * fse3t_0(:,:,jk)
+      END DO
+      IF( lk_mpp )   CALL mpp_sum( vol0 )
       
       CALL iom_open ( 'data_1m_salinity_nomask', inum )