Changeset 10931 for NEMO/releases/release-4.0/src/ICE/icestp.F90
- Timestamp:
- 2019-05-05T21:44:55+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/releases/release-4.0/src/ICE/icestp.F90
r10925 r10931 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) … … 431 431 t_si (:,:,:) = rt0 ! temp at the ice-snow interface 432 432 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 qcn_ice (:,:,:) = 0._wp ! initialisation: conductive flux (ln_cndflx=T & ln_cndemule=T) 436 qtr_ice_bot(:,:,:) = 0._wp ! initialization: part of solar radiation transmitted through the ice needed at least for outputs 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 qcn_ice (:,:,:) = 0._wp ! initialisation: conductive flux (ln_cndflx=T & ln_cndemule=T) 436 qtr_ice_bot(:,:,:) = 0._wp ! initialization: part of solar radiation transmitted through the ice needed at least for outputs 437 qsb_ice_bot(:,:) = 0._wp ! (needed if ln_icethd=F) 437 438 ! 438 439 ! for control checks (ln_icediachk)
Note: See TracChangeset
for help on using the changeset viewer.