Changeset 10420 for NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/icedyn_rdgrft.F90
- Timestamp:
- 2018-12-19T21:04:32+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/icedyn_rdgrft.F90
r10419 r10420 92 92 93 93 CALL mpp_sum ( 'icedyn_rdgrft', ice_dyn_rdgrft_alloc ) 94 IF( ice_dyn_rdgrft_alloc /= 0 ) CALL ctl_ warn( 'ice_dyn_rdgrft_alloc: failed to allocate arrays')94 IF( ice_dyn_rdgrft_alloc /= 0 ) CALL ctl_stop( 'STOP', 'ice_dyn_rdgrft_alloc: failed to allocate arrays' ) 95 95 ! 96 96 END FUNCTION ice_dyn_rdgrft_alloc … … 269 269 ! 270 270 iter = iter + 1 271 IF( iter > jp_itermax ) CALL ctl_ warn( 'icedyn_rdgrft: non-converging ridging scheme')271 IF( iter > jp_itermax ) CALL ctl_stop( 'STOP', 'icedyn_rdgrft: non-converging ridging scheme' ) 272 272 ! 273 273 END DO
Note: See TracChangeset
for help on using the changeset viewer.