Changeset 12807 for NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/LBC/halo_mng.F90

Timestamp:

2020-04-23T15:14:45+02:00 (4 years ago)

Author:

smasson

Message:

Extra_Halo: input file only over inner domain + new variables names, see #2366

File:

• NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/LBC/halo_mng.F90 (modified) (3 diffs)

NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/LBC/halo_mng.F90

@@ -26 +26 @@
    INTEGER :: jpi_1, jpj_1
    INTEGER :: jpimax_1, jpjmax_1
-   INTEGER :: nlci_1, nlcj_1
-   INTEGER :: nldi_1, nldj_1
-   INTEGER :: nlei_1, nlej_1
+   INTEGER :: Nis0_1, Njs0_1
+   INTEGER :: Nie0_1, Nje0_1
 CONTAINS
 
@@ -36 +35 @@
         jpj_1 = jpj
 
-        nlci_1 = nlci
-        nlcj_1 = nlcj
+        Nis0_1 = Nis0
+        Njs0_1 = Njs0
 
-        nldi_1 = nldi
-        nldj_1 = nldj
-
-        nlei_1 = nlei
-        nlej_1 = nlej
+        Nie0_1 = Nie0
+        Nje0_1 = Nje0
 
       jpimax_1 = jpimax
@@ -59 +55 @@
         jpj = jpj_1 + 2*khls -2
 
-        nlci = nlci_1 + 2*khls -2
-        nlcj = nlcj_1 + 2*khls -2
+        jpi = jpi_1 + 2*khls -2
+        jpj = jpj_1 + 2*khls -2
         
         jpimax = jpimax_1 + 2*khls -2
         jpjmax = jpjmax_1 + 2*khls -2
 
-        nldi = nldi_1 + khls - 1
-        nldj = nldj_1 + khls - 1
+        Nis0 = Nis0_1 + khls - 1
+        Njs0 = Njs0_1 + khls - 1
 
-        nlei = nlei_1 + khls - 1
-        nlej = nlej_1 + khls - 1
+        Nie0 = Nie0_1 + khls - 1
+        Nje0 = Nje0_1 + khls - 1
 
    END SUBROUTINE halo_mng_set