Changeset 13460 for NEMO/trunk/src/OCE/SBC/sbcblk_skin_coare.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_coare.F90 (modified) (2 diffs)

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

@@ -89 +89 @@
       REAL(wp) :: zQabs, zdlt, zfr, zalfa, zqlat, 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,
@@ -156 +156 @@
       ztime = REAL(nsec_day,wp)/(24._wp*3600._wp) ! time of current time step since 00:00 for current day (UTC) -> ztime = 0 -> 00:00 / ztime = 0.5 -> 12:00 ...
 
-      DO_2D( 1, 1, 1, 1 )
+      DO_2D( nn_hls, nn_hls, nn_hls, nn_hls )
 
          l_exit       = .FALSE.