Changeset 13460 for NEMO/trunk/src/OCE/SBC/sbcblk_skin_ecmwf.F90

Timestamp:

2020-09-14T09:16:10+02:00 (4 years ago)

Author:

smasson

Message:

trunk: avoid to use undefined values in sbcblk when nn_hls > 1

File:

• NEMO/trunk/src/OCE/SBC/sbcblk_skin_ecmwf.F90 (modified) (2 diffs)

NEMO/trunk/src/OCE/SBC/sbcblk_skin_ecmwf.F90

@@ -95 +95 @@
       REAL(wp) :: zQabs, zdlt, zfr, zalfa, zus
       !!---------------------------------------------------------------------
-      DO_2D( 1, 1, 1, 1 )
+      DO_2D( nn_hls, nn_hls, nn_hls, nn_hls )
 
          zQabs = pQnsol(ji,jj) ! first guess of heat flux absorbed within the viscous sublayer of thicknes delta,
@@ -173 +173 @@
       IF( PRESENT(pustk) ) l_pustk_known = .TRUE.
 
-      DO_2D( 1, 1, 1, 1 )
+      DO_2D( nn_hls, nn_hls, nn_hls, nn_hls )
 
          zHwl = Hz_wl(ji,jj) ! first guess for warm-layer depth (and unique..., less advanced than COARE3p6 !)