Changeset 14372 for NEMO/releases/r4.0/r4.0-HEAD/src/OCE/ICB/icbutl.F90

Timestamp:

2021-02-02T18:42:36+01:00 (3 years ago)

Author:

mathiot

Message:

ticket #2581: merge ticket branch into r4.0-HEAD after Dave review

File:

• NEMO/releases/r4.0/r4.0-HEAD/src/OCE/ICB/icbutl.F90 (modified) (1 diff)

NEMO/releases/r4.0/r4.0-HEAD/src/OCE/ICB/icbutl.F90

@@ -428 +428 @@
       IF( ij == jpj ) THEN ; ij = ij-1 ; ierr = ierr + 1 ; END IF
       !
-      IF ( ierr > 0 ) CALL ctl_stop('STOP','icb_utl_bilin_e: an icebergs coordinates is out of valid range (out of bound error)')
+      IF ( ierr > 0 ) THEN
+          CALL FLUSH(numicb)
+          CALL ctl_stop('STOP','icb_utl_bilin_e: an icebergs coordinates is out of valid range (out of bound error).'       , &
+               &                                'This can be fixed using rn_speed_limit=0.4 in &namberg.'                   , &
+               &                                'More details in the corresponding iceberg.stat file (nn_verbose_level > 0).' )
+      END IF
       !
       IF(    0.0_wp <= zi .AND. zi < 0.5_wp   ) THEN