Index

Rundeck: P1SoM40

Created: Thu May 9 03:30:17 EDT 2024

init_pbl

Module:

File: PBL_DRV.f

Summary: init_pbl sets up the initialization of wind, virtual potential temperature, and specific humidity fields in the boundary layer (between the surface and the middle of the first GCM layer). The initial values of these fields are obtained by solving the static equations for these fields using the turbulence model of Cheng et al. (2002). These initial values are used when starting from a restart file that does not have these data stored. It is called by subroutine INPUT (in MODELE.f).
Author :
Version:

---

Declaration:

subroutine init_pbl(inipbl, istart)

Variables:

lhe : used from constant

lhs : used from constant

tf : used from constant

omega2 : used from constant

deltx : used from constant

undef_val : used from constant

u : used from atm_com

v : used from atm_com

p : used from atm_com

t : used from atm_com

q : used from atm_com

traditional_coldstart_aic : used from atm_com

imaxj : used from geom

sinlat2d : used from geom

npbl : used from socpbl

Initial Value = >n

zgs : used from socpbl

inits : used from socpbl

xcdpbl : used from socpbl

ccoeff0 : used from socpbl

skin_effect : used from socpbl

xdelt : used from socpbl

maxntm : used from socpbl

calc_wspdf : used from socpbl

fearth : used from ghy_com

grid : used from domain_decomp_atm

writet_parallel : used from domain_decomp_1d

getdomainbounds : used from domain_decomp_1d

pmid : used from atm_com

pk : used from atm_com

pedn : used from atm_com

pek : used from atm_com

dpdx_by_rho : used from atm_com

dpdy_by_rho : used from atm_com

dpdx_by_rho_0 : used from atm_com

dpdy_by_rho_0 : used from atm_com

ua : used from atm_com

Initial Value = >ualij

va : used from atm_com

Initial Value = >valij

si_atm : used from seaice_com

atmocn : used from fluxes

atmice : used from fluxes

atmgla : used from fluxes

atmlnd : used from fluxes

flice : used from fluxes

fland : used from fluxes

asflx : used from fluxes

atmsrf : used from fluxes

ent_get_exports : used from ent_mod

entcells : used from ent_com

par_open : used from pario

par_close : used from pario

read_dist_data : used from pario

inipbl : logical, intent(in)

whether to init prog vars

uocean : real*8, parameter

Initial Value = 0.

vocean : real*8, parameter

Initial Value = 0.

istart : integer, intent(in)

what kind of (re)start is being done

fid : integer

unit number for roughness length input file

ilong : integer

longitude identifier

jlat : integer

latitude identifier

itype :

surface type

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

k : integer

loop variable

j : integer

loop variable

i : integer

loop variable

ipatch : integer

itype4 : integer

lpbl : integer

pland : real*8

pwater : real*8

plice : real*8

psoil : real*8

poice : real*8

pocean : real*8

ztop : real*8

elhx : real*8

coriol : real*8

tgrndv : real*8

pij : real*8

ps : real*8

psk : real*8

qgrnd : real*8

utop : real*8

vtop : real*8

qtop : real*8

ttop : real*8

zgrnd : real*8

cm : real*8

ch : real*8

cq : real*8

ustar : real*8

lmonin : real*8

tmp : real*8

qsat : real*8

dpdxr : real*8

dpdyr : real*8

dpdxr0 : real*8

dpdyr0 : real*8

upbl : real*8, dimension(npbl)

vpbl : real*8, dimension(npbl)

tpbl : real*8, dimension(npbl)

qpbl : real*8, dimension(npbl)

epbl : real*8, dimension(npbl-1)

ug : real*8

vg : real*8

buf : real*8, allocatable, dimension(:, :)

canopy_height : real*8

fv : real*8

roughl_from_file : integer, save

Initial Value = 0

cdm : real*8

i_1 : integer

i_0 : integer

j_1 : integer

j_0 : integer

i_1h : integer

i_0h : integer

j_1h : integer

j_0h : integer

titrrr : character*80

rrr : real*8, dimension(grid%I_STRT_HALO:grid%I_STOP_HALO, grid%J_STRT_HALO:grid%J_STOP_HALO)