Changeset 8332 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limthd_lac.F90

Timestamp:

2017-07-13T19:39:16+02:00 (7 years ago)

Author:

clem

Message:

1D fields need also to be calculated at the boundaries otherwise a lbc_lnk is missing

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limthd_lac.F90 (modified) (1 diff)

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limthd_lac.F90

@@ -226 +226 @@
       ! This occurs if open water energy budget is negative (cooling) and there is no landfast ice
       nidx = 0 ; idxice(:) = 0
-      DO jj = 2, jpjm1
-         DO ji = 2, jpim1
+      DO jj = 1, jpj
+         DO ji = 1, jpi
             IF ( qlead(ji,jj)  <  0._wp .AND. tau_icebfr(ji,jj) == 0._wp ) THEN
                nidx = nidx + 1