- Timestamp:
- 2019-06-06T16:21:52+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_GO8_package/src/ICE/icestp.F90
r10888 r11082 189 189 IF( ln_icethd ) CALL ice_thd( kt ) ! -- Ice thermodynamics 190 190 ! 191 IF( ln_icethd )CALL ice_cor( kt , 2 ) ! -- Corrections191 CALL ice_cor( kt , 2 ) ! -- Corrections 192 192 ! 193 193 CALL ice_var_glo2eqv ! necessary calls (at least for coupling) … … 323 323 WRITE(numout,*) ' maximum ice concentration for SH = ', rn_amax_s 324 324 ENDIF 325 ! !--- change max ice concentration for roundoff errors 326 rn_amax_n = MIN( rn_amax_n, 1._wp - epsi10 ) 327 rn_amax_s = MIN( rn_amax_s, 1._wp - epsi10 ) 325 328 ! !--- check consistency 326 329 IF ( jpl > 1 .AND. ln_virtual_itd ) THEN … … 431 434 t_si (:,:,:) = rt0 ! temp at the ice-snow interface 432 435 433 tau_icebfr(:,:) = 0._wp ! landfast ice param only (clem: important to keep the init here) 434 cnd_ice (:,:,:) = 0._wp ! initialisation: effective conductivity at the top of ice/snow (ln_cndflx=T) 435 qtr_ice_bot(:,:,:) = 0._wp ! initialization: part of solar radiation transmitted through the ice needed at least for outputs 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 qcn_ice (:,:,:) = 0._wp ! initialisation: conductive flux (ln_cndflx=T & ln_cndemule=T) 439 qtr_ice_bot(:,:,:) = 0._wp ! initialization: part of solar radiation transmitted through the ice needed at least for outputs 440 qsb_ice_bot(:,:) = 0._wp ! (needed if ln_icethd=F) 436 441 ! 437 442 ! for control checks (ln_icediachk)
Note: See TracChangeset
for help on using the changeset viewer.