Changeset 13445 for NEMO/releases/r4.0/r4.0-HEAD/src/ICE/icerst.F90
- Timestamp:
- 2020-09-01T18:25:07+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/releases/r4.0/r4.0-HEAD/src/ICE/icerst.F90
r13284 r13445 278 278 ELSE ! == case of a simplified restart == ! 279 279 ! ! ---------------------------------- ! 280 CALL ctl_warn('ice_rst_read: you are using a simplifiedice restart')280 CALL ctl_warn('ice_rst_read: you are attempting to use an unsuitable ice restart') 281 281 ! 282 CALL ice_istate_init 282 IF( .NOT. ln_iceini ) THEN 283 CALL ctl_stop('STOP', 'ice_rst_read: you need ln_ice_ini=T and nn_iceini_file=0 or 1') 284 ELSE 285 CALL ctl_warn('ice_rst_read: using ice_istate to set initial conditions instead') 286 ENDIF 287 ! 283 288 CALL ice_istate( nit000 ) 284 289 ! 285 IF( .NOT.ln_iceini .OR. nn_iceini_file == 0 ) &286 & CALL ctl_stop('STOP', 'ice_rst_read: you need ln_ice_ini=T and nn_iceini_file=0')287 !288 290 ENDIF 289 291
Note: See TracChangeset
for help on using the changeset viewer.