Changeset 12586 for NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/SAS/nemogcm.F90

Timestamp:

2020-03-23T13:14:40+01:00 (4 years ago)

Author:

francesca

Message:

Add extra-halo support (jperio 3,4) - ticket #2366

File:

• NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/SAS/nemogcm.F90 (modified) (4 diffs)

NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/SAS/nemogcm.F90

@@ -37 +37 @@
    USE lib_mpp        ! distributed memory computing
    USE mppini         ! shared/distributed memory setting (mpp_init routine)
-   USE lbcnfd  , ONLY : isendto, nsndto, nfsloop, nfeloop   ! Setup of north fold exchanges
+   USE lbcnfd  , ONLY : isendto, nsndto ! Setup of north fold exchanges
    USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)
 #if defined key_iomput
@@ -45 +45 @@
    USE agrif_ice_update ! ice update
 #endif
+   USE halo_mng
 
    IMPLICIT NONE
@@ -207 +208 @@
       ELSE                  ;   cxios_context = 'nemo'
       ENDIF
+      nn_hls = 1
       !
       !                             !-------------------------------------------------!
@@ -345 +347 @@
       CALL mpp_init
 
+      CALL halo_mng_init()
       ! Now we know the dimensions of the grid and numout has been set: we can allocate arrays
       CALL nemo_alloc()