IndexRundeck: P1SoM40Created: Fri May 10 03:30:18 EDT 2024

earth

Module: SOIL_DRV
File: GHY_DRV.f
Summary: EARTH calculates surface fluxes of sensible heat, evaporation, thermal radiation, and momentum drag over earth.
Author : I. Alienov/F. Abramopolous
Version:

Declaration:
Variables:
grav : used from constant

rgas : used from constant

lhe : used from constant

lhs : used from constant

sha : used from constant

tf : used from constant

rhow : used from constant

deltx : used from constant

gasc : used from constant

stbo : used from constant

im : used from resolution

jm : used from resolution

modeleclock : used from model_com

dtsrc : used from model_com

nday : used from model_com

itime : used from model_com

grid : used from domain_decomp_atm

getdomainbounds : used from domain_decomp_atm

am_i_root : used from domain_decomp_atm

imaxj : used from geom

lat2d : used from geom

fsrdir : used from rad_com

srvissurf : used from rad_com

co2x : used from rad_com

co2ppm : used from rad_com

advnc : used from sle001

evap_limits : used from sle001

w : used from sle001

snowd : used from sle001

tp : used from sle001

fice : used from sle001

ashg : used from sle001

alhg : used from sle001

aevap : used from sle001

abetad : used from sle001

aruns : used from sle001

arunu : used from sle001

aeruns : used from sle001

aerunu : used from sle001

tbcs : used from sle001

tsns : used from sle001

af0dt : used from sle001

af1dt : used from sle001

ijdebug : used from sle001

thets : used from sle001

atmlnd : used from fluxes

prec : used from fluxes

eprec : used from fluxes

precss : used from fluxes

nisurf : used from fluxes

snowbv : used from ghy_com

fearth : used from ghy_com

fr_snow_ij : used from ghy_com

tearth : used from ghy_com

tsns_ij : used from ghy_com

wearth : used from ghy_com

aiearth : used from ghy_com

evap_max_ij : used from ghy_com

fr_sat_ij : used from ghy_com

qg_ij : used from ghy_com

top_dev_ij : used from ghy_com

soil_surf_moist : used from ghy_com

pbl : used from pbl_drv

t_pbl_args : used from pbl_drv

xdelt : used from pbl_drv

alloc_pbl_args : used from pbl_drv

dealloc_pbl_args : used from pbl_drv

snow_cover_same_as_rad : used from snow_drvm

i_earth : used from snow_model

j_earth : used from snow_model

entcells : used from ent_com

update_vegetation_data : used from ent_drv

ngm : used from ghy_com

imt : used from ghy_com

nlsn : used from ghy_com

ls_nfrac : used from ghy_com

dz_ij : used from ghy_com

sl_ij : used from ghy_com

q_ij : used from ghy_com

qk_ij : used from ghy_com

top_index_ij : used from ghy_com

top_dev_ij : used from ghy_com

w_ij : used from ghy_com

ht_ij : used from ghy_com

snowbv : used from ghy_com

nsn_ij : used from ghy_com

dzsn_ij : used from ghy_com

wsn_ij : used from ghy_com

hsn_ij : used from ghy_com

fr_snow_ij : used from ghy_com

shc_soil_texture : used from ghy_com

qf_ij : used from ghy_com

ns : integer, intent(in)

moddsf : integer, intent(in)

moddd : integer, intent(in)

i : integer

j : integer

itype : integer

ibv : integer

shdt : real*8

evhdt : real*8

rcdmws : real*8

rcdhws : real*8

cdq : real*8

cdm : real*8

cdh : real*8

elhx : real*8

tg : real*8

srheat : real*8

tg1 : real*8

ptype : real*8

trheat : real*8

rhosrf : real*8

ma1 : real*8

tfs : real*8

th1 : real*8

thv1 : real*8

psk : real*8

ps : real*8

spring : real*8

q1 : real*8

dlwdt : real*8

irrig : real*8

htirrig : real*8

rhosrf0 : real*8
estimated surface air density
fb : real*8

fv : real*8

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

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

qsat : real*8

qg : real*8
rel. humidity at the ground, defined: total_evap = Cq V (qg-qs)
qg_nsat : real*8
rel. humidity at non-saturated fraction of soil
jr : integer

pbl_args : type(t_pbl_args)

qg_sat : real*8

ts : real*8

qs : real*8

ii : integer

ivar : integer

kr : integer

ca : real*8

vis_rad : real*8

direct_vis_rad : real*8

cos_zen_angle : real*8

end_of_day_flag : logical
- hack to pass "end of day" flag to Ent
j_0 : integer

j_1 : integer

j_0h : integer

j_1h : integer

i_0 : integer

i_1 : integer

counter : integer, save
Initial Value = 0
dayofyear : integer

Simplex Website Curator: Igor Aleinov — NASA Official: Gavin A. Schmidt

Contact GISS NASA Privacy PolicyAccessibility