Changeset 9667 for NEMO/trunk/src/OCE/ICB/icblbc.F90

Timestamp:

2018-05-28T17:47:05+02:00 (6 years ago)

Author:

smasson

Message:

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

File:

• NEMO/trunk/src/OCE/ICB/icblbc.F90 (modified) (2 diffs)

NEMO/trunk/src/OCE/ICB/icblbc.F90

@@ -85 +85 @@
       !! =============================
 
-      IF( nperio == 1 .OR. nperio == 4 .OR. nperio == 6 ) THEN
+      IF( l_Iperio ) THEN
 
          this => first_berg
@@ -103 +103 @@
       !! north/south boundaries
       !! ======================
-      ! south symmetric
-      IF( nperio == 2 )   CALL ctl_stop(' south symmetric condition not implemented for icebergs')
+      IF( l_Jperio)      CALL ctl_stop(' north-south periodicity not implemented for icebergs')
       ! north fold
-      IF( nperio == 3 .OR. nperio == 4 .OR. nperio == 5 .OR. nperio == 6 )   CALL icb_lbc_nfld()
+      IF( npolj /= 0 )   CALL icb_lbc_nfld()
       !
    END SUBROUTINE icb_lbc