Changeset 9667 for NEMO/trunk/src/OCE/ICB
- Timestamp:
- 2018-05-28T17:47:05+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/ICB/icblbc.F90
r9598 r9667 85 85 !! ============================= 86 86 87 IF( nperio == 1 .OR. nperio == 4 .OR. nperio == 6) THEN87 IF( l_Iperio ) THEN 88 88 89 89 this => first_berg … … 103 103 !! north/south boundaries 104 104 !! ====================== 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') 107 106 ! north fold 108 IF( np erio == 3 .OR. nperio == 4 .OR. nperio == 5 .OR. nperio == 6) CALL icb_lbc_nfld()107 IF( npolj /= 0 ) CALL icb_lbc_nfld() 109 108 ! 110 109 END SUBROUTINE icb_lbc
Note: See TracChangeset
for help on using the changeset viewer.