Changeset 14336 for NEMO/branches/2021/dev_r14312_MPI_Interface/src/SAS

Timestamp:

2021-01-23T11:09:54+01:00 (3 years ago)

Author:

smasson

Message:

dev_r14312_MPI_Interface: replace jperio by l_Iperio, l_Jperio, l_NFold, c_NFtype, #2598

File:

• NEMO/branches/2021/dev_r14312_MPI_Interface/src/SAS/nemogcm.F90 (modified) (1 diff)

NEMO/branches/2021/dev_r14312_MPI_Interface/src/SAS/nemogcm.F90

@@ -340 +340 @@
       !
       IF( ln_read_cfg ) THEN            ! Read sizes in domain configuration file
-         CALL domain_cfg ( cn_cfg, nn_cfg, Ni0glo, Nj0glo, jpkglo, jperio )
+         CALL domain_cfg ( cn_cfg, nn_cfg, Ni0glo, Nj0glo, jpkglo, l_Iperio, l_Jperio, l_NFold, c_NFtype )
       ELSE                              ! user-defined namelist
-         CALL usr_def_nam( cn_cfg, nn_cfg, Ni0glo, Nj0glo, jpkglo, jperio )
-      ENDIF
-      l_Iperio = jperio == 1 .OR. jperio == 4 .OR. jperio == 6 .OR. jperio == 7   ! i-periodicity?
-      l_Jperio = jperio == 2 .OR. jperio == 7                                     ! j-periodicity ?
-      l_NFoldT = jperio == 3 .OR. jperio == 4                                     ! 
-      l_NFoldF = jperio == 5 .OR. jperio == 6                                     ! 
+         CALL usr_def_nam( cn_cfg, nn_cfg, Ni0glo, Nj0glo, jpkglo, l_Iperio, l_Jperio, l_NFold, c_NFtype )
+      ENDIF
       !
       IF(lwm)   WRITE( numond, namcfg )