Ignore:
Timestamp:
2018-05-28T17:47:05+02:00 (3 years ago)
Author:
smasson
Message:

trunk: cyclic north-south periodicity and nperio cleaning, see #2093

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/ICB/icblbc.F90

    r9598 r9667  
    8585      !! ============================= 
    8686 
    87       IF( nperio == 1 .OR. nperio == 4 .OR. nperio == 6 ) THEN 
     87      IF( l_Iperio ) THEN 
    8888 
    8989         this => first_berg 
     
    103103      !! north/south boundaries 
    104104      !! ====================== 
    105       ! south symmetric 
    106       IF( nperio == 2 )   CALL ctl_stop(' south symmetric condition not implemented for icebergs') 
     105      IF( l_Jperio)      CALL ctl_stop(' north-south periodicity not implemented for icebergs') 
    107106      ! north fold 
    108       IF( nperio == 3 .OR. nperio == 4 .OR. nperio == 5 .OR. nperio == 6 )   CALL icb_lbc_nfld() 
     107      IF( npolj /= 0 )   CALL icb_lbc_nfld() 
    109108      ! 
    110109   END SUBROUTINE icb_lbc 
Note: See TracChangeset for help on using the changeset viewer.