New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 14331 – NEMO

Changeset 14331


Ignore:
Timestamp:
2021-01-22T15:48:14+01:00 (3 years ago)
Author:
smasson
Message:

dev_r14312_MPI_Interface: temporary bugfix for SAS and OFF, #2598

Location:
NEMO/branches/2021/dev_r14312_MPI_Interface/src
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2021/dev_r14312_MPI_Interface/src/OFF/nemogcm.F90

    r14255 r14331  
    313313         CALL usr_def_nam( cn_cfg, nn_cfg, Ni0glo, Nj0glo, jpkglo, jperio ) 
    314314      ENDIF 
     315      l_Iperio = jperio == 1 .OR. jperio == 4 .OR. jperio == 6 .OR. jperio == 7   ! i-periodicity? 
     316      l_Jperio = jperio == 2 .OR. jperio == 7                                     ! j-periodicity ? 
     317      l_NFoldT = jperio == 3 .OR. jperio == 4                                     !  
     318      l_NFoldF = jperio == 5 .OR. jperio == 6                                     !  
    315319      ! 
    316320      IF(lwm)   WRITE( numond, namcfg ) 

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

    r14239 r14331  
    344344         CALL usr_def_nam( cn_cfg, nn_cfg, Ni0glo, Nj0glo, jpkglo, jperio ) 
    345345      ENDIF 
     346      l_Iperio = jperio == 1 .OR. jperio == 4 .OR. jperio == 6 .OR. jperio == 7   ! i-periodicity? 
     347      l_Jperio = jperio == 2 .OR. jperio == 7                                     ! j-periodicity ? 
     348      l_NFoldT = jperio == 3 .OR. jperio == 4                                     !  
     349      l_NFoldF = jperio == 5 .OR. jperio == 6                                     !  
    346350      ! 
    347351      IF(lwm)   WRITE( numond, namcfg ) 
Note: See TracChangeset for help on using the changeset viewer.