Index

Rundeck: P1SoM40

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

surface

Module:

File: SURFACE.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

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

rhows : used from constant

grav : used from constant

t : used from atm_com

q : used from atm_com

specific humidity (kg water vapor/kg air)

modeleclock : used from model_com

dtsrc : used from model_com

idacc : used from model_com

nday : used from model_com

itime : used from model_com

qcheck : used from model_com

int_hours_per_day : used from timeconstants_mod

grid : used from domain_decomp_atm

getdomainbounds : used from domain_decomp_atm

globalsum : used from domain_decomp_atm

axyp : used from geom

imaxj : used from geom

byaxyp : used from geom

tmom : used from somtq_com

qmom : used from somtq_com

mz : used from somtq_com

pmid : used from atm_com

pk : used from atm_com

PMID**KAPA

pedn : used from atm_com

edge pressure (top of box) (mb)

pek : used from atm_com

PEDN**KAPA

ma : used from atm_com

byma : used from atm_com

trhr : used from rad_com

fsf : used from rad_com

cosz1 : used from rad_com

trsurf : used from rad_com

npbl : used from socpbl

Initial Value = >n

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

modd5s : used from diag_com

ndasf : used from diag_com

ia_srf : used from diag_com

aij : used from diag_com

Initial Value = >aij_loc

ij_dskin : used from diag_com

xsi : used from seaice

ace1i : used from seaice

alami0 : used from seaice

rhoi : used from seaice

byrls : used from seaice

solar_ice_frac : used from seaice

tfrez : used from seaice

deidti : used from seaice

alami : used from seaice

si_atm : used from seaice_com

mwl : used from lakes_com

gml : used from lakes_com

flake : used from lakes_com

icelak : used from lakes_com

minmld : used from lakes

fearth : used from ghy_com

avg_patches_pbl_exports : used from exchange_types

avg_patches_srfflx_exports : used from exchange_types

avg_patches_srfstate_exports : used from exchange_types

avg_patches_srfflx_exports_gla : used from exchange_types

uflux1 : used from fluxes

vflux1 : used from fluxes

tflux1 : used from fluxes

qflux1 : used from fluxes

uodrag : used from fluxes

after_atm_phase1 : used from fluxes

during_srfflx : used from fluxes

nisurf : used from fluxes

fland : used from fluxes

flice : used from fluxes

focean : used from fluxes

atmocn : used from fluxes

atmice : used from fluxes

atmgla : used from fluxes

atmlnd : used from fluxes

asflx : used from fluxes

atmsrf : used from fluxes

atmglas : used from fluxes

earth : used from soil_drv

ground_e : used from soil_drv

timer_type : used from timer_mod

starttimer : used from timerlist_mod

Initial Value = > start

stoptimer : used from timerlist_mod

Initial Value = > stop

debug : logical

i : integer

j : integer

k : integer

kr : integer

jr : integer

ns : integer

nsteps : integer

moddsf : integer

moddd : integer

itype : integer

ih : integer

ihm : integer

ii : integer

itype4 : integer

ipatch : integer

pland : real*8

plice : real*8

poice : real*8

pocean : real*8

ps : real*8

p1k : 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

psk : 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

evaplim : real*8

f2 : real*8

fsri : real*8, dimension(2)

htlim : real*8

dlwdt : real*8

bynisurf : real*8

tgo : real*8

srhdt : real*8

pearth : real*8

xxx_sv :

temporary arrays to store the values of fluxes for

ma1 : real*8

mass of lowest atmospheric layer (kg/m^2)

msi1 : real*8

shdt_sv : real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)

evhdt_sv : real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)

srhdt_sv : real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)

trhdt_sv : real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)

evap_sv : real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)

trhdt_sv2 : real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)

tgrnd : real*8, dimension(2, grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)

tgrn2 : real*8, dimension(2, grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)

tgr4 : real*8, dimension(2, grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)

e1 : real*8, dimension(2, grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)

qmin : real*8, parameter

Initial Value = 1.d-12

qsat : real*8

dqsatdt : real*8

tr4 : real*8

pbl_args : type(t_pbl_args)

qg_sat : real*8

dtsurf : real*8

uocean : real*8

vocean : real*8

qsrf : real*8

us : real*8

vs : real*8

ws : real*8

ws0 : real*8

gusti : real*8

dmua_ij : real*8

dmva_ij : real*8

lim_lake_evap : logical

lim_dew : logical

j_0 : integer

j_1 : integer

i_0 : integer

i_1 : integer

rsi : real*8, dimension(:, :), pointer

msi : real*8, dimension(:, :), pointer

snowi : real*8, dimension(:, :), pointer

sss : real*8, dimension(:, :), pointer

ssi : real*8, dimension(:, :, :), pointer

atimer : type(timer_type), pointer

pedn : used from atm_com

edge pressure (top of box) (mb)

pek : used from atm_com

PEDN**KAPA

pk : used from atm_com

PMID**KAPA

q : used from atm_com

specific humidity (kg water vapor/kg air)

ma1 : real*8

mass of lowest atmospheric layer (kg/m^2)