Index

Rundeck: P1SoM40

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

surface_landice

Module:

File: SURFACE_LANDICE.f

Summary: SURFACE calculates the surface fluxes which include sensible heat, evaporation, thermal radiation, and momentum drag. It also calculates instantaneous surface temperature, surface specific humidity, and surface wind components.
Author : Nobody will claim responsibilty
Version:

---

Declaration:

subroutine surface_landice (do_init, moddd, dtsurf, igla, ihc)

Variables:

rgas : used from constant

lhm : used from constant

lhe : used from constant

lhs : used from constant

sha : used from constant

tf : used from constant

rhow : used from constant

shv : used from constant

shi : used from constant

stbo : used from constant

bygrav : used from constant

by6 : used from constant

deltx : used from constant

teeny : used from constant

grav : used from constant

modeleclock : used from model_com

itime : used from model_com

grid : used from domain_decomp_atm

getdomainbounds : used from domain_decomp_atm

imaxj : used from geom

alloc_pbl_args : used from pbl_drv

dealloc_pbl_args : used from pbl_drv

pbl : used from pbl_drv

t_pbl_args : used from pbl_drv

xdelt : used from pbl_drv

z1e : used from landice

z2li : used from landice

hc1li : used from landice

hc2li : used from landice

ace1li : used from landice

ace2li : used from landice

snmin : used from landice

snowli : used from landice_com

ijhc : used from landice_com

ijhc_tsurf : used from landice_com

ijhc_tsli : used from landice_com

xsi : used from seaice

ace1i : used from seaice

alami0 : used from seaice

rhoi : used from seaice

byrls : used from seaice

alami : used from seaice

timer_type : used from timer_mod

starttimer : used from timerlist_mod

Initial Value = > start

stoptimer : used from timerlist_mod

Initial Value = > stop

do_init : logical, intent(in)

moddd : integer, intent(in)

ihc : integer, intent(in)

dtsurf : real*8, intent(in)

igla : type(atmgla_xchng_vars)

i : integer

j : integer

k : integer

itype : integer

ih : integer

ihm : integer

ps : real*8

elhx : real*8

msi2 : real*8

cdterm : real*8

cdenom : real*8

df1dtg : real*8

hcg1 : real*8

hcg2 : real*8

evhdt : real*8

f1dt : real*8

cm : real*8

ch : real*8

cq : real*8

evheat : real*8

f0 : real*8

f1 : real*8

dshdtg : real*8

dqgdtg : real*8

devdtg : real*8

dtrdtg : real*8

df0dtg : real*8

dfdtg : real*8

dtg : real*8

dsndtg : real*8

dt2 : real*8

dq1x : real*8

evhdt0 : real*8

evap : real*8

f0dt : real*8

ftevap : real*8

pwater : real*8

q1 : real*8

thv1 : real*8

ptype : real*8

tg1 : real*8

srheat : real*8

snow : real*8

tg2 : real*8

shdt : real*8

trhdt : real*8

tg : real*8

ts : real*8

rhosrf : real*8

rcdmws : real*8

rcdhws : real*8

rcdqws : real*8

rcdhdws : real*8

rcdqdws : real*8

sheat : real*8

trheat : real*8

t2den : real*8

t2con : real*8

t2mul : real*8

fqevap : real*8

z1by6l : real*8

f2 : real*8

fsri : real*8, dimension(2)

dlwdt : real*8

tgo : real*8

ma1 : real*8

qmin : real*8, parameter

Initial Value = 1.d-12

z2li3l : real*8, parameter

Initial Value = Z2LI/(3.*ALAMI0)

z1libyl : real*8, parameter

Initial Value = Z1E/ALAMI0

qsat : real*8, external

dqsatdt : real*8

tr4 : real*8

pbl_args : type(t_pbl_args)

qg_sat : real*8

qsrf : real*8

us : real*8

vs : real*8

ws : real*8

ws0 : real*8

gusti : real*8

lim_dew : logical

j_0 : integer

j_1 : integer

j_0h : integer

j_1h : integer

i_0 : integer

i_1 : integer

debug : logical

atimer : type(timer_type), pointer