Changeset 12147 for NEMO/branches/2019/dev_ASINTER-01-05_merged/src/OCE/SBC

Timestamp:

2019-12-10T14:50:25+01:00 (4 years ago)

Author:

gsamson

Message:

update dev_ASINTER-01-05_merged to trunk@r12072 + bugfix for ICE_AGRIF test case

File:

• NEMO/branches/2019/dev_ASINTER-01-05_merged/src/OCE/SBC/sbcmod.F90 (modified) (1 diff)

NEMO/branches/2019/dev_ASINTER-01-05_merged/src/OCE/SBC/sbcmod.F90

@@ -229 +229 @@
       CASE( 1 )                        !- Ice-cover climatology ("Ice-if" model)  
       CASE( 2 )                        !- SI3  ice model
-         IF( .NOT.( ln_blk .OR. ln_cpl .OR. ln_abl ) )   &
-            &                   CALL ctl_stop( 'sbc_init : SI3 sea-ice model requires ln_blk or ln_cpl or ln_abl = T' )
+         IF( .NOT.( ln_blk .OR. ln_cpl .OR. ln_abl .OR. ln_usr ) )   &
+            &                   CALL ctl_stop( 'sbc_init : SI3 sea-ice model requires ln_blk or ln_cpl or ln_abl or ln_usr = T' )
       CASE( 3 )                        !- CICE ice model
-         IF( .NOT.( ln_blk .OR. ln_cpl .OR. ln_abl ) )   &
-            &                   CALL ctl_stop( 'sbc_init : CICE sea-ice model requires ln_blk or ln_cpl or ln_abl = T' )
+         IF( .NOT.( ln_blk .OR. ln_cpl .OR. ln_abl .OR. ln_usr ) )   &
+            &                   CALL ctl_stop( 'sbc_init : CICE sea-ice model requires ln_blk or ln_cpl or ln_abl or ln_usr = T' )
          IF( lk_agrif                                )   &
             &                   CALL ctl_stop( 'sbc_init : CICE sea-ice model not currently available with AGRIF' )