Changeset 11536 for NEMO/trunk/src/ICE/icestp.F90
- Timestamp:
- 2019-09-11T15:54:18+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/ICE/icestp.F90
r10994 r11536 254 254 IF( .NOT. ln_rstart ) THEN ! start from rest: sea-ice deduced from sst 255 255 CALL ice_istate_init 256 CALL ice_istate 256 CALL ice_istate( nit000 ) 257 257 ELSE ! start from a restart file 258 258 CALL ice_rst_read … … 303 303 REWIND( numnam_ice_ref ) ! Namelist nampar in reference namelist : Parameters for ice 304 304 READ ( numnam_ice_ref, nampar, IOSTAT = ios, ERR = 901) 305 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampar in reference namelist' , lwp)305 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampar in reference namelist' ) 306 306 REWIND( numnam_ice_cfg ) ! Namelist nampar in configuration namelist : Parameters for ice 307 307 READ ( numnam_ice_cfg, nampar, IOSTAT = ios, ERR = 902 ) 308 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampar in configuration namelist' , lwp)308 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampar in configuration namelist' ) 309 309 IF(lwm) WRITE( numoni, nampar ) 310 310 ! … … 425 425 wfx_err_sub(:,:) = 0._wp 426 426 ! 427 afx_tot(:,:) = 0._wp ;428 !429 427 diag_heat(:,:) = 0._wp ; diag_sice(:,:) = 0._wp 430 428 diag_vice(:,:) = 0._wp ; diag_vsnw(:,:) = 0._wp
Note: See TracChangeset
for help on using the changeset viewer.