Changeset 10425 for NEMO/trunk/src/TOP/TRP/trdtrc_oce.F90

Timestamp:

2018-12-19T22:54:16+01:00 (5 years ago)

Author:

smasson

Message:

trunk: merge back dev_r10164_HPC09_ESIWACE_PREP_MERGE@10424 into the trunk

File:

• NEMO/trunk/src/TOP/TRP/trdtrc_oce.F90 (modified) (2 diffs)

NEMO/trunk/src/TOP/TRP/trdtrc_oce.F90

@@ -117 +117 @@
       !!         *** ROUTINE trd_trc_oce_alloc ***
       !!----------------------------------------------------------------------
-      USE lib_mpp, ONLY: ctl_warn
+      USE lib_mpp, ONLY: ctl_stop
       INTEGER :: ierr(2)
       !!----------------------------------------------------------------------
@@ -146 +146 @@
       trd_trc_oce_alloc = MAXVAL(ierr)
       !
-      IF( trd_trc_oce_alloc /= 0 )   CALL ctl_warn('trd_trc_oce_alloc: failed to allocate arrays')
+      IF( trd_trc_oce_alloc /= 0 )   CALL ctl_stop( 'STOP', 'trd_trc_oce_alloc: failed to allocate arrays' )
       !
 # if defined key_trdmxl_trc