Changeset 11822 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/ICE/icestp.F90
- Timestamp:
- 2019-10-29T11:41:36+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/ICE/icestp.F90
r11480 r11822 190 190 IF( ln_icethd ) CALL ice_thd( kt ) ! -- Ice thermodynamics 191 191 ! 192 IF( ln_icethd )CALL ice_cor( kt , 2 ) ! -- Corrections192 CALL ice_cor( kt , 2 ) ! -- Corrections 193 193 ! 194 194 CALL ice_var_glo2eqv ! necessary calls (at least for coupling) … … 257 257 IF( .NOT. ln_rstart ) THEN ! start from rest: sea-ice deduced from sst 258 258 CALL ice_istate_init 259 CALL ice_istate( Kbb, Kmm, Kaa )259 CALL ice_istate( nit000, Kbb, Kmm, Kaa ) 260 260 ELSE ! start from a restart file 261 CALL ice_rst_read 261 CALL ice_rst_read( Kbb, Kmm, Kaa ) 262 262 ENDIF 263 263 CALL ice_var_glo2eqv … … 306 306 REWIND( numnam_ice_ref ) ! Namelist nampar in reference namelist : Parameters for ice 307 307 READ ( numnam_ice_ref, nampar, IOSTAT = ios, ERR = 901) 308 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampar in reference namelist' , lwp)308 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampar in reference namelist' ) 309 309 REWIND( numnam_ice_cfg ) ! Namelist nampar in configuration namelist : Parameters for ice 310 310 READ ( numnam_ice_cfg, nampar, IOSTAT = ios, ERR = 902 ) 311 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampar in configuration namelist' , lwp)311 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampar in configuration namelist' ) 312 312 IF(lwm) WRITE( numoni, nampar ) 313 313 ! … … 326 326 WRITE(numout,*) ' maximum ice concentration for SH = ', rn_amax_s 327 327 ENDIF 328 ! !--- change max ice concentration for roundoff errors 329 rn_amax_n = MIN( rn_amax_n, 1._wp - epsi10 ) 330 rn_amax_s = MIN( rn_amax_s, 1._wp - epsi10 ) 328 331 ! !--- check consistency 329 332 IF ( jpl > 1 .AND. ln_virtual_itd ) THEN … … 425 428 wfx_err_sub(:,:) = 0._wp 426 429 ! 427 afx_tot(:,:) = 0._wp ;428 !429 430 diag_heat(:,:) = 0._wp ; diag_sice(:,:) = 0._wp 430 431 diag_vice(:,:) = 0._wp ; diag_vsnw(:,:) = 0._wp … … 434 435 t_si (:,:,:) = rt0 ! temp at the ice-snow interface 435 436 436 tau_icebfr(:,:) = 0._wp ! landfast ice param only (clem: important to keep the init here) 437 cnd_ice (:,:,:) = 0._wp ! initialisation: effective conductivity at the top of ice/snow (ln_cndflx=T) 438 qtr_ice_bot(:,:,:) = 0._wp ! initialization: part of solar radiation transmitted through the ice needed at least for outputs 437 tau_icebfr (:,:) = 0._wp ! landfast ice param only (clem: important to keep the init here) 438 cnd_ice (:,:,:) = 0._wp ! initialisation: effective conductivity at the top of ice/snow (ln_cndflx=T) 439 qcn_ice (:,:,:) = 0._wp ! initialisation: conductive flux (ln_cndflx=T & ln_cndemule=T) 440 qtr_ice_bot(:,:,:) = 0._wp ! initialization: part of solar radiation transmitted through the ice needed at least for outputs 441 qsb_ice_bot(:,:) = 0._wp ! (needed if ln_icethd=F) 439 442 ! 440 443 ! for control checks (ln_icediachk)
Note: See TracChangeset
for help on using the changeset viewer.