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 14337 for NEMO/branches – NEMO

Changeset 14337 for NEMO/branches


Ignore:
Timestamp:
2021-01-23T16:06:56+01:00 (3 years ago)
Author:
smasson
Message:

dev_r14312_MPI_Interface: 2 bugfixes following [14336], #2598

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

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2021/dev_r14312_MPI_Interface/src/OCE/DOM/dom_oce.F90

    r14336 r14337  
    6767   LOGICAL         , PUBLIC ::   l_Iperio, l_Jperio   ! i- j-periodicity 
    6868   LOGICAL         , PUBLIC ::   l_NFold              ! North Pole folding 
    69    CHARACTER(len=3), PUBLIC ::   c_NFtype             ! type of North pole Folding: T or F point 
     69   CHARACTER(len=1), PUBLIC ::   c_NFtype             ! type of North pole Folding: T or F point 
    7070 
    7171   ! Tiling namelist 
  • NEMO/branches/2021/dev_r14312_MPI_Interface/src/OCE/DOM/domain.F90

    r14336 r14337  
    675675      IF( iom_varid( inum, 'jperio', ldstop = .FALSE. ) > 0 ) THEN                   ! keep compatibility with old version... 
    676676         CALL iom_get( inum, 'jperio', zperio )   ;   iperio = NINT( zperio ) 
    677          ldIperio = iperio == 1 .OR. iperio == 4 .OR. iperio == 6 .OR. iperio == 7   ! i-periodicity 
    678          ldJperio = iperio == 2 .OR. iperio == 7                                     ! j-periodicity 
    679          ldNFold  = iperio >= 3 .OR. iperio <= 6                                     ! North pole folding 
    680          IF(     iperio == 3 .OR. iperio == 4 ) THEN   ;   cdNFtype = 'T'            !    folding at T point 
    681          ELSEIF( iperio == 5 .OR. iperio == 6 ) THEN   ;   cdNFtype = 'F'            !    folding at F point 
    682          ELSE                                          ;   cdNFtype = '-'   
     677         ldIperio = iperio == 1  .OR. iperio == 4 .OR. iperio == 6 .OR. iperio == 7   ! i-periodicity 
     678         ldJperio = iperio == 2  .OR. iperio == 7                                     ! j-periodicity 
     679         ldNFold  = iperio >= 3 .AND. iperio <= 6                                     ! North pole folding 
     680         IF(     iperio == 3 .OR. iperio == 4 ) THEN   ;   cdNFtype = 'T'             !    folding at T point 
     681         ELSEIF( iperio == 5 .OR. iperio == 6 ) THEN   ;   cdNFtype = 'F'             !    folding at F point 
     682         ELSE                                          ;   cdNFtype = '-'             !    default value 
    683683         ENDIF 
    684684      ELSE    
Note: See TracChangeset for help on using the changeset viewer.