Changeset 15132

Timestamp:

2021-07-22T09:16:24+02:00 (3 years ago)

Author:

dancopsey

Message:

Copied a couple of lines from the ltmp_wapatch section to the ltmp_landproc section to account for the wraparound points.

File:

• NEMO/branches/UKMO/NEMO_4.0.4_GC_couple_pkg/src/OCE/SBC/cpl_oasis3.F90 (modified) (3 diffs)

NEMO/branches/UKMO/NEMO_4.0.4_GC_couple_pkg/src/OCE/SBC/cpl_oasis3.F90

@@ -163 +163 @@
          nldi_save = nldi   ;   nlei_save = nlei
          nldj_save = nldj   ;   nlej_save = nlej
+         IF( nimpp           ==      1 ) nldi = 1
+         IF( nimpp + jpi - 1 == jpiglo ) nlei = jpi
          IF( nowe == -1 ) nldi = nldi + 1
          IF( noea == -1 ) nlei = nlei - 1
@@ -361 +363 @@
          nldi_save = nldi   ;   nlei_save = nlei
          nldj_save = nldj   ;   nlej_save = nlej
+         IF( nimpp           ==      1 ) nldi = 1
+         IF( nimpp + jpi - 1 == jpiglo ) nlei = jpi
          IF( nowe == -1 ) nldi = nldi + 1
          IF( noea == -1 ) nlei = nlei - 1
@@ -436 +440 @@
          ENDIF 
          IF ( ltmp_landproc ) THEN
+            IF( nimpp           ==      1 ) nldi = 1
+            IF( nimpp + jpi - 1 == jpiglo ) nlei = jpi
             IF( nowe == -1 ) nldi = nldi + 1
             IF( noea == -1 ) nlei = nlei - 1