Changeset 1948

Timestamp:

2010-06-22T17:43:50+02:00 (14 years ago)

Author:

smasson

Message:

bugfix in diaar5, see ticket:682

File:

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

trunk/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 )