Changeset 13365 for NEMO/branches/2020/tickets_icb_1900/src/OCE/ICB/icbini.F90

Timestamp:

2020-07-30T18:57:15+02:00 (4 years ago)

Author:

mathiot

Message:

ticket #1900: add compatibility check (nn_fsbc and ln_M2016, SAS and ln_M2016) and rm useless debug print

File:

• NEMO/branches/2020/tickets_icb_1900/src/OCE/ICB/icbini.F90 (modified) (1 diff)

NEMO/branches/2020/tickets_icb_1900/src/OCE/ICB/icbini.F90

@@ -73 +73 @@
       !
       IF( .NOT. ln_icebergs )   RETURN
-
+      !
+      ! check nn_fsbc
+      IF ( ln_icebergs .AND. ln_M2016 .AND. nn_fsbc /= 1) THEN
+         IF (lwp) WRITE(numout,*) 'The use of ln_M2016 within the iceberg module is only compatible with nn_fsbc == 1'
+         IF (lwp) WRITE(numout,*) 'because it needs the 3d t,s,u,v model data'
+         CALL ctl_stop('Compatibility error in the iceberg module')
+      END IF
+      !
       !                          ! allocate gridded fields
       IF( icb_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'icb_alloc : unable to allocate arrays' )