Changeset 15053 for NEMO/trunk/src/OCE/ISF/isfcpl.F90

Timestamp:

2021-06-24T17:39:38+02:00 (3 years ago)

Author:

clem

Message:

nn_hls=2: solve a number of floating points because some arrays are not defined on the first halo. Looks like this is not the end.

File:

• NEMO/trunk/src/OCE/ISF/isfcpl.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/ISF/isfcpl.F90

@@ -374 +374 @@
       ! -----------------------------------------------------------------------------------------
       ! case we open a cell but no neigbour cells available to get an estimate of T and S
-      DO_3D( 1, 1, 1, 1, 1,jpk-1 )
+      DO_3D( 0, 0, 0, 0, 1,jpk-1 )
          IF (tmask(ji,jj,jk) == 1._wp .AND. ts(ji,jj,jk,2,Kmm) == 0._wp)              &
             &   CALL ctl_stop('STOP', 'failing to fill all new weet cell,     &