Changeset 14068

Timestamp:

2020-12-03T22:32:32+01:00 (4 years ago)

Author:

smasson

Message:

trunk: minor bugfixes

Location:

NEMO/trunk/src

Files:

• OCE/IOM/iom.F90 (modified) (1 diff)
• SAS/sbcssm.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/IOM/iom.F90

@@ -2331 +2331 @@
       CASE ('U')        ;   icnr =  0   ;   jcnr = -1
       CASE ('V')        ;   icnr = -1   ;   jcnr =  0
+      CASE ('F')        ;   icnr =  0   ;   jcnr =  0
       END SELECT
       !

NEMO/trunk/src/SAS/sbcssm.F90

@@ -227 +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