Changeset 14448 for NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO/src/OCE/stpctl.F90

Timestamp:

2021-02-12T09:57:09+01:00 (3 years ago)

Author:

cetlod

Message:

NEWDEV_PISCO : merge with the trunk at revision r14447

File:

• NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO/src/OCE/stpctl.F90 (modified) (1 diff)

NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO/src/OCE/stpctl.F90

@@ -123 +123 @@
       !                                   !==  done by all processes at every time step  ==!
       !
-      llmsk(   1:Nis1,:,:) = .FALSE.                                              ! exclude halos from the checked region
-      llmsk(Nie1: jpi,:,:) = .FALSE.
-      llmsk(:,   1:Njs1,:) = .FALSE.
-      llmsk(:,Nje1: jpj,:) = .FALSE.
+      llmsk(     1:nn_hls,:,:) = .FALSE.                                          ! exclude halos from the checked region
+      llmsk(Nie0+1:   jpi,:,:) = .FALSE.
+      llmsk(:,     1:nn_hls,:) = .FALSE.
+      llmsk(:,Nje0+1:   jpj,:) = .FALSE.
       !
       llmsk(Nis0:Nie0,Njs0:Nje0,1) = ssmask(Nis0:Nie0,Njs0:Nje0) == 1._wp         ! define only the inner domain