- Timestamp:
- 2019-11-15T17:01:18+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.1_fix_cpl/src/ICE/icestp.F90
r11715 r11918 252 252 ! 253 253 ! ! Initial sea-ice state 254 IF( .NOT. ln_rstart ) THEN ! start from rest: sea-ice deduced from sst 255 CALL ice_istate_init 256 CALL ice_istate( nit000 ) 257 ELSE ! start from a restart file 258 CALL ice_rst_read 254 255 CALL ice_istate_init 256 IF ( ln_rstart .OR. nn_iceini_file == 2 ) THEN 257 CALL ice_rst_read ! start from a restart file 258 ELSE 259 CALL ice_istate( nit000 ) ! start from rest: sea-ice deduced from sst 259 260 ENDIF 260 261 CALL ice_var_glo2eqv
Note: See TracChangeset
for help on using the changeset viewer.