Changeset 14931 for utils/tools/DOMAINcfg/src/lib_fortran_generic.h90

Timestamp:

2021-05-31T16:36:45+02:00 (3 years ago)

Author:

jchanut

Message:

#2638: restores Pierre's changes done in #2588 at r14199

File:

• utils/tools/DOMAINcfg/src/lib_fortran_generic.h90 (modified) (1 diff)

utils/tools/DOMAINcfg/src/lib_fortran_generic.h90

@@ -117 +117 @@
       ipk = K_SIZE(ptab)   ! 3rd dimension
       !
-      ztmp = ARRAY_OPERATION( ARRAY_IN(:,:,1)*tmask_i(:,:) )
+      ztmp = ARRAY_OPERATION( ARRAY_IN(:,:,1))
       DO jk = 2, ipk
-         ztmp = SCALAR_OPERATION(ztmp, ARRAY_OPERATION( ARRAY_IN(:,:,jk)*tmask_i(:,:) ))
+         ztmp = SCALAR_OPERATION(ztmp, ARRAY_OPERATION( ARRAY_IN(:,:,jk)))
       ENDDO