Changeset 14922 for NEMO/trunk/src/OCE/ZDF

Timestamp:

2021-05-28T15:25:33+02:00 (3 years ago)

Author:

hadcv

Message:

#2682: Fix AMM12 and AGRIF_DEMO failing with debug flags and nn_hls = 1

File:

• NEMO/trunk/src/OCE/ZDF/zdfgls.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/ZDF/zdfgls.F90

@@ -208 +208 @@
          zhsro(:,:) = rn_hsro
       CASE ( 1 )             ! Standard Charnock formula
-         zhsro(:,:) = MAX( rsbc_zs1 * ustar2_surf(A2D(nn_hls)) , rn_hsro )
+         DO_2D( nn_hls-1, nn_hls-1, nn_hls-1, nn_hls-1 )
+            zhsro(ji,jj) = MAX( rsbc_zs1 * ustar2_surf(ji,jj) , rn_hsro )
+         END_2D
       CASE ( 2 )             ! Roughness formulae according to Rascle et al., Ocean Modelling (2008)
 !!gm faster coding : the 2 comment lines should be used