Changeset 14337 for NEMO/branches/2021/dev_r14312_MPI_Interface/src/OCE/DOM
- Timestamp:
- 2021-01-23T16:06:56+01:00 (3 years ago)
- 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 67 67 LOGICAL , PUBLIC :: l_Iperio, l_Jperio ! i- j-periodicity 68 68 LOGICAL , PUBLIC :: l_NFold ! North Pole folding 69 CHARACTER(len= 3), PUBLIC :: c_NFtype ! type of North pole Folding: T or F point69 CHARACTER(len=1), PUBLIC :: c_NFtype ! type of North pole Folding: T or F point 70 70 71 71 ! Tiling namelist -
NEMO/branches/2021/dev_r14312_MPI_Interface/src/OCE/DOM/domain.F90
r14336 r14337 675 675 IF( iom_varid( inum, 'jperio', ldstop = .FALSE. ) > 0 ) THEN ! keep compatibility with old version... 676 676 CALL iom_get( inum, 'jperio', zperio ) ; iperio = NINT( zperio ) 677 ldIperio = iperio == 1 .OR. iperio == 4 .OR. iperio == 6 .OR. iperio == 7 ! i-periodicity678 ldJperio = iperio == 2 .OR. iperio == 7 ! j-periodicity679 ldNFold = iperio >= 3 . OR. iperio <= 6 ! North pole folding680 IF( iperio == 3 .OR. iperio == 4 ) THEN ; cdNFtype = 'T' ! folding at T point681 ELSEIF( iperio == 5 .OR. iperio == 6 ) THEN ; cdNFtype = 'F' ! folding at F point682 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 683 683 ENDIF 684 684 ELSE
Note: See TracChangeset
for help on using the changeset viewer.