Changeset 14030 for NEMO/trunk/src/SAS/sbcssm.F90

Timestamp:

2020-12-03T10:26:33+01:00 (3 years ago)

Author:

mathiot

Message:

merge tickets_icb_1900 into trunk

File:

• NEMO/trunk/src/SAS/sbcssm.F90 (modified) (2 diffs)

NEMO/trunk/src/SAS/sbcssm.F90

@@ -21 +21 @@
    USE zpshde         ! z-coord. with partial steps: horizontal derivatives
    USE closea         ! for ln_closea
+   USE icb_oce        ! for icebergs
    !
    USE in_out_manager ! I/O manager
@@ -226 +227 @@
          ln_closea = .false.
       ENDIF
-
+      IF( ln_icebergs .AND. ln_M2016 ) THEN
+         IF( lwp ) WRITE(numout,*) '         ==>>>   ln_iceberg and ln_M2016 not compatible with SAS (need 3d data)'
+         CALL ctl_stop('ln_iceberg and ln_M2016 not compatible with SAS (need 3d data)')
+      END IF
       !
       IF( l_sasread ) THEN                       ! store namelist information in an array