IndexRundeck: P1SoM40Created: Thu May 9 03:30:17 EDT 2024

init_lakes

Module:
File: LAKES.f
Summary: init_LAKES initiallises lake variables
Author : Gary Russell/Gavin Schmidt
Version:

Declaration:
Variables:
rhow : used from constant

shw : used from constant

tf : used from constant

pi : used from constant

grav : used from constant

im : used from resolution

jm : used from resolution

dtsrc : used from model_com

zatmo : used from atm_com

traditional_coldstart_aic : used from atm_com

grid : used from domain_decomp_atm

write_parallel : used from domain_decomp_atm

getdomainbounds : used from domain_decomp_atm

halo_update : used from domain_decomp_atm

am_i_root : used from domain_decomp_atm

axyp : used from geom

imaxj : used from geom

lonlat_to_ij : used from geom

lon2d_dg : used from geom

lat2d_dg : used from geom

atmocn : used from fluxes

atmsrf : used from fluxes

flice : used from fluxes

focean : used from fluxes

fearth0 : used from fluxes

flake0 : used from fluxes

fland : used from fluxes

fearth : used from ghy_com

npts : used from diag_com

conpt0 : used from diag_com

icon_lkm : used from diag_com

icon_lke : used from diag_com

par_open : used from pario

par_close : used from pario

read_dist_data : used from pario

j_0 : integer

j_1 : integer

j_0h : integer

j_1h : integer

j_0s : integer

j_1s : integer

i_0 : integer

i_1 : integer

i_0h : integer

i_1h : integer

have_north_pole : logical

have_south_pole : logical

jmin_fill : integer

jmax_fill : integer

iu_warn : integer

inilake : logical, intent(inout)

jd : integer
loop variables
id : integer
loop variables
ju : integer
loop variables
iu : integer
loop variables
j : integer
loop variables
i : integer
loop variables
istart : integer, intent(in)

inm : integer

fid : integer

ios : integer

iu_rvr : integer
unit number for river direction file
fmtstr : character(len=80)

titlei : character

spmin : real*8

spmax : real*8

speed0 : real*8

speed : real*8

dzdh : real*8

dzdh1 : real*8

mlk1 : real*8

fac : real*8

fac1 : real*8

out_line : character(len=300)
local variable to hold mixed-type output for parallel I/O
qcon : logical, dimension(NPTS)

t : logical
Initial Value = .TRUE.
f : logical
Initial Value = .FALSE.
iloop_min : integer

iloop_max : integer

jloop_min : integer

jloop_max : integer

horzdist_2pts : real*8

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

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

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

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

ij : integer, dimension(2)

ll : real*8, dimension(2)

lat_rvr : real*4, dimension(nrvrmx)

lon_rvr : real*4, dimension(nrvrmx)

get_dir : integer

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

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

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

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

Contact GISS NASA Privacy PolicyAccessibility