Index

Rundeck: E6TomaF40

Created: Fri May 17 03:30:39 EDT 2024

get_bc_dalbedo

Module:

File: TRACERS_AEROSOLS_Koch_e4.f

Summary: Calculates change to albedo of snow on ice and snow on land due to BC within the snow. Parameterization based on Warren and Wiscombe (1980) (21 inputs) or actually on Flanner et al. fig 2 r_e=500 (14 inputs) or Warren and Wiscombe (1985) (18 input, old vs new, then I continue linearly from 19-29 off the plot)
Author : Dorothy Koch, modified by Kostas Tsigaridis
Version:

---

Declaration:

subroutine get_bc_dalbedo(i, j, bc_dalb, snow_present)

Variables:

rhow : used from constant

density of pure water [kg m-3]

tr_wsn_ij : used from ghy_com

tracer amount in snow over land (multiplied by fr_snow) [kg m-2]

si_atm : used from seaice_com

%snowi snow amount on sea ice [kg m-2]

wsn_ij : used from ghy_com

n_bcb : used from tracer_com

n_bcii : used from tracer_com

n_bcia : used from tracer_com

atmice : used from fluxes

bc : real*8, parameter, dimension(29)

Initial Value = (/1.d0,2.d0,3.d0,4.d0,5.d0, 6.d0,7.d0,8.d0,9.d0,10.d0,20.d0,30.d0,40.d0,50.d0,60.d0, 70.d0,80.d0,90.d0,100.d0,110.d0,120.d0,130.d0,140.d0, 150.d0,160.d0,170.d0,180.d0,190.d0,200.d0/)

daln : real*8, parameter, dimension(29)

Initial Value = (/0.d0,0.1d0,0.1d0,0.2d0, 0.2d0,0.2d0,0.2d0,0.3d0,0.3d0,0.4d0,0.7d0,0.9d0,1.1d0, 1.3d0,1.5d0,1.6d0,1.8d0,2.d0,2.2d0,2.4d0,2.6d0,2.8d0, 3.d0,3.2d0,3.4d0,3.6d0,3.8d0,4.d0,4.2d0/)

bcsnowb : real*8

BC amount in snow over bare soil [kg m-2]

bcsnowv : real*8

BC amount in snow over vegetation [kg m-2]

sconb : real*8

BC concentration in snow over bare soil [kg kg-1]

sconv : real*8

BC concentration in snow over bare soil [kg kg-1]

scon : real*8

BC concentration in snow over land [ppm by mass]

icon : real*8

BC concentration in snow over sea ice [ppm by mass]

dalo : real*8, parameter, dimension(29)

Initial Value = (/0.1d0,0.2d0,0.4d0,0.5d0, 0.6d0,0.7d0,0.8d0,0.9d0,1.d0,1.d0,2.d0,2.6d0,3.2d0, 3.8d0,4.3d0,4.8d0,5.2d0,5.5d0,5.9d0,6.3d0,6.7d0,7.1d0, 7.5d0,7.9d0,8.3d0,8.7d0,9.1d0,9.5d0,9.9d0/)

fb : real*8

fraction of land with bare soil (1.-fv)

fv : real*8

fraction of land with vegetation (1.-fb)

bcc : real*8

BC concentration (=max(scon,icon)) to be used for albedo calculations

rads : real*8

snow grain size determined in GRAINS

n : integer

ib : integer

i : integer, intent(in)

j : integer, intent(in)

bc_dalb : real*8, intent(out)

snow_present : logical, intent(out)

nspbc : integer, parameter

Initial Value = 3

spbc : integer, dimension(nspbc)