Changeset 12760 for NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/TOP/oce_trc.F90

Timestamp:

2020-04-17T08:53:28+02:00 (4 years ago)

Author:

smasson

Message:

Extra_Halo: update do_loop_substitute for nn_hls=2, see #2366

File:

• NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/TOP/oce_trc.F90 (modified) (1 diff)

NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/TOP/oce_trc.F90

@@ -18 +18 @@
    USE par_oce , ONLY :   jp_tem   =>   jp_tem     !: indice for temperature
    USE par_oce , ONLY :   jp_sal   =>   jp_sal     !: indice for salinity
+   USE par_oce , ONLY :   nn_hls   =>   nn_hls     !: 
+   USE par_oce , ONLY :   nIs_0    =>   nIs_0      !: 
+   USE par_oce , ONLY :   nJs_0    =>   nJs_0      !: 
+   USE par_oce , ONLY :   nIe_0    =>   nIe_0      !: 
+   USE par_oce , ONLY :   nJe_0    =>   nJe_0      !: 
+   USE par_oce , ONLY :   nIs_1    =>   nIs_1      !: 
+   USE par_oce , ONLY :   nJs_1    =>   nJs_1      !: 
+   USE par_oce , ONLY :   nIe_1    =>   nIe_1      !: 
+   USE par_oce , ONLY :   nJe_1    =>   nJe_1      !: 
+   USE par_oce , ONLY :   nIs_1nxt2    =>   nIs_1nxt2      !: 
+   USE par_oce , ONLY :   nJs_1nxt2    =>   nJs_1nxt2      !: 
+   USE par_oce , ONLY :   nIe_1nxt2    =>   nIe_1nxt2      !: 
+   USE par_oce , ONLY :   nJe_1nxt2    =>   nJe_1nxt2      !: 
+   USE par_oce , ONLY :   nIs_2    =>   nIs_2      !: 
+   USE par_oce , ONLY :   nJs_2    =>   nJs_2      !: 
+   USE par_oce , ONLY :   nIe_2    =>   nIe_2      !: 
+   USE par_oce , ONLY :   nJe_2    =>   nJe_2      !: 
 
    USE in_out_manager                           !* IO manager *