Changeset 14918 for NEMO/branches/2021

Timestamp:

2021-05-27T19:50:06+02:00 (3 years ago)

Author:

smueller

Message:

Conversion of array assignments to explicit loops in order to avoid problematic nested preprocessor macros in module zdfosm (ticket #2353)

File:

• NEMO/branches/2021/dev_r14122_HPC-08_Mueller_OSMOSIS_streamlining/src/OCE/ZDF/zdfosm.F90 (modified) (1 diff)

NEMO/branches/2021/dev_r14122_HPC-08_Mueller_OSMOSIS_streamlining/src/OCE/ZDF/zdfosm.F90

@@ -2754 +2754 @@
       END_3D
       ! Average temperature and salinity
-      ztm(:,:) = ztm(:,:) / MAX( e3t(A2D(nn_hls),1,Kmm), pmld(A2D(nn_hls)) )
-      zsm(:,:) = zsm(:,:) / MAX( e3t(A2D(nn_hls),1,Kmm), pmld(A2D(nn_hls)) )
+      DO_2D( nn_hls, nn_hls, nn_hls, nn_hls )
+         ztm(ji,jj) = ztm(ji,jj) / MAX( e3t(ji,jj,1,Kmm), pmld(ji,jj) )
+         zsm(ji,jj) = zsm(ji,jj) / MAX( e3t(ji,jj,1,Kmm), pmld(ji,jj) )
+      END_2D
       ! Calculate horizontal gradients at u & v points
       zmld_midu(:,:)   =  0.0_wp