Index

Rundeck: P1SoM40

Created: Fri May 10 03:30:18 EDT 2024

getsur

Module: SURF_ALBEDO

File: ALBEDO.f

Summary: GETSUR computes surface albedo for each grid box
Author : A. Lacis/V. Oinas (modifications by I. Aleinov/G. Schmidt)
Version:

---

Declaration:

subroutine getsur( snoage_fac_max, mlat46, jnorth, keepal, ksialb, kzsnow, madsur, cosz, planck, planck_tmin, planck_tmax, ilon, jlat, agesn, pocean, poice, pearth, plice, plake, zlake, tgo, tgoi, tge, tgli, zoice, fmp, zsnwoi, zmp, snowoi, snowe, snowli, snow_frac, wearth, wmag, pvt, dalbsn, flags, loc_chl, bxa, prnb, prnx, srbalb, srxalb, trgalb, bgfemd, bgfemt, dtrufg, ftrufg )

Variables:

atmocn : used from fluxes

ocalbedo : used from ocalbedo_mod

snoage_fac_max : real*8

mlat46 : integer

jnorth : integer

keepal : integer

ksialb : integer

kzsnow : integer

madsur : integer

planck_tmin : integer

planck_tmax : integer

cosz : real*8

planck : real*8, dimension(PLANCK_TMIN:PLANCK_TMAX, NKBAND)

ilon : integer

jlat : integer

agesn : real*8, dimension(3)

pocean : real*8

poice : real*8

pearth : real*8

plice : real*8

plake : real*8

zlake : real*8

tgo : real*8

tgoi : real*8

tge : real*8

tgli : real*8

zoice : real*8

fmp : real*8

zsnwoi : real*8

zmp : real*8

snowoi : real*8

snowe : real*8

snowli : real*8

snow_frac : real*8, dimension(2)

wearth : real*8

wmag : real*8

pvt : real*8, dimension(12)

dalbsn : real*8

loc_chl : real*8

flags : logical*4

bxa : real*8, dimension(7)

prnb : real*8, dimension(6, 4)

prnx : real*8, dimension(6, 4)

srbalb : real*8, dimension(6)

srxalb : real*8, dimension(6)

trgalb : real*8, dimension(33)

bgfemd : real*8, dimension(33)

bgfemt : real*8, dimension(33)

dtrufg : real*8, dimension(4)

ftrufg : real*8, dimension(4)

k : integer

j : integer

l : integer

jh : integer

iwm : integer

jwm : integer

itoc : integer

itea : integer

itoi : integer

itli : integer

asnage : real*8

fsnage : real*8

bocsum : real*8

beasum : real*8

boisum : real*8

blisum : real*8

avscum : real*8

anscum : real*8

wmj : real*8

wmi : real*8

frfoam : real*8

av : real*8

bv : real*8

wtoc : real*8

bocm : real*8

bocp : real*8

trapoc : real*8

bocm1 : real*8

bocp1 : real*8

boc : real*8

dsfrac : real*8

vgfrac : real*8

vtfrac : real*8

wtea : real*8

beam : real*8

beap : real*8

trapea : real*8

beam1 : real*8

beap1 : real*8

bea : real*8

wtoi : real*8

boim : real*8

boip : real*8

trapoi : real*8

boim1 : real*8

boip1 : real*8

boi : real*8

amean : real*8

wtli : real*8

blim : real*8

blip : real*8

bgf : real*8

trapli : real*8

blim1 : real*8

blip1 : real*8

bli : real*8

kkzsno : real*8

fdzice : real*8

ahmzoi : real*8

bocvis : real*8

bocnir : real*8

blivis : real*8

blinir : real*8

xocvis : real*8

xocnir : real*8

expsne : real*8

expsno : real*8

expsnl : real*8

bocvn : real*8, dimension(6)

beavn : real*8, dimension(6)

boivn : real*8, dimension(6)

blivn : real*8, dimension(6)

bsnvn : real*8, dimension(6)

bvnsur : real*8, dimension(6)

xocvn : real*8, dimension(6)

xeavn : real*8, dimension(6)

xoivn : real*8, dimension(6)

xlivn : real*8, dimension(6)

xsnvn : real*8, dimension(6)

xvnsur : real*8, dimension(6)

almp6 : real*8, dimension(6)

alsf6 : real*8, dimension(6)

patchy : real*8

snagfac : real*8

dummy1 : real*8, dimension(33)

dummy2 : real*8, dimension(33)

bvh2o : real*8

xvh2o : real*8

wmag1 : real*8

x : real*8