Changeset 3824 for palm/trunk/SOURCE/chemistry_model_mod.f90
- Timestamp:
- Mar 27, 2019 3:56:16 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/chemistry_model_mod.f90
r3821 r3824 2799 2799 2800 2800 USE radiation_model_mod, & 2801 ONLY: zenith2801 ONLY: cos_zenith 2802 2802 2803 2803 … … 3419 3419 ! 3420 3420 !-- Get Rc_tot 3421 CALL drydepos_gas_depac( spc_names(lsp), day_of_year, latitude, ts, ustar_lu, glrad, zenith(0), &3421 CALL drydepos_gas_depac( spc_names(lsp), day_of_year, latitude, ts, ustar_lu, glrad, cos_zenith, & 3422 3422 relh, lai, sai, nwet, lu_dep, 2, Rc_tot, ccomp_tot(lsp), hyp(nzb), catm, diffc, & 3423 3423 r_aero_lu , Rb ) … … 3566 3566 ! 3567 3567 !-- Get Rc_tot 3568 CALL drydepos_gas_depac( spc_names(lsp), day_of_year, latitude, ts, ustar_lu, glrad, zenith(0), &3568 CALL drydepos_gas_depac( spc_names(lsp), day_of_year, latitude, ts, ustar_lu, glrad, cos_zenith, & 3569 3569 relh, lai, sai, nwet, lup_dep, 2, Rc_tot, ccomp_tot(lsp), hyp(nzb), catm, diffc, & 3570 3570 r_aero_lu , Rb ) … … 3713 3713 ! 3714 3714 !-- Get Rc_tot 3715 CALL drydepos_gas_depac( spc_names(lsp), day_of_year, latitude, ts, ustar_lu, glrad, zenith(0), &3715 CALL drydepos_gas_depac( spc_names(lsp), day_of_year, latitude, ts, ustar_lu, glrad, cos_zenith, & 3716 3716 relh, lai, sai, nwet, luw_dep, 2, Rc_tot, ccomp_tot(lsp), hyp(nzb), catm, diffc, & 3717 3717 r_aero_lu , Rb ) … … 4109 4109 ! 4110 4110 !-- Get Rc_tot 4111 CALL drydepos_gas_depac( spc_names(lsp), day_of_year, latitude, ts, ustar_lu, glrad, zenith(0), &4111 CALL drydepos_gas_depac( spc_names(lsp), day_of_year, latitude, ts, ustar_lu, glrad, cos_zenith, & 4112 4112 relh, lai, sai, nwet, luu_dep, 2, Rc_tot, ccomp_tot(lsp), hyp(nzb), catm, diffc, & 4113 4113 r_aero_lu , Rb ) … … 4249 4249 ! 4250 4250 !-- Get Rc_tot 4251 CALL drydepos_gas_depac( spc_names(lsp), day_of_year, latitude, ts, ustar_lu, glrad, zenith(0), &4251 CALL drydepos_gas_depac( spc_names(lsp), day_of_year, latitude, ts, ustar_lu, glrad, cos_zenith, & 4252 4252 relh, lai, sai, nwet, lug_dep, 2, Rc_tot, ccomp_tot(lsp), hyp(nzb), catm, diffc, & 4253 4253 r_aero_lu , Rb ) … … 4395 4395 ! 4396 4396 !-- Get Rc_tot 4397 CALL drydepos_gas_depac( spc_names(lsp), day_of_year, latitude, ts, ustar_lu, glrad, zenith(0), &4397 CALL drydepos_gas_depac( spc_names(lsp), day_of_year, latitude, ts, ustar_lu, glrad, cos_zenith, & 4398 4398 relh, lai, sai, nwet, lud_dep, 2, Rc_tot, ccomp_tot(lsp), hyp(nzb), catm, diffc, & 4399 4399 r_aero_lu , Rb )
Note: See TracChangeset
for help on using the changeset viewer.