Changeset 10425 for NEMO/trunk/src/TOP/PISCES/SED/sed.F90
- Timestamp:
- 2018-12-19T22:54:16+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/TOP/PISCES/SED/sed.F90
r10222 r10425 154 154 !! *** ROUTINE sed_alloc *** 155 155 !!------------------------------------------------------------------- 156 USE lib_mpp, ONLY: ctl_ warn156 USE lib_mpp, ONLY: ctl_stop 157 157 !!------------------------------------------------------------------- 158 158 ! … … 166 166 & mol_wgt(jpsol), STAT=sed_alloc ) 167 167 168 IF( sed_alloc /= 0 ) CALL ctl_ warn('sed_alloc: failed to allocate arrays')168 IF( sed_alloc /= 0 ) CALL ctl_stop( 'STOP', 'sed_alloc: failed to allocate arrays' ) 169 169 ! 170 170 END FUNCTION sed_alloc
Note: See TracChangeset
for help on using the changeset viewer.