Index

Rundeck: E6TomaF40

Created: Fri May 17 03:30:39 EDT 2024

rdland

Module:

File: TRDRYDEP.f

Summary: RDLAND Read in land types and fractions(times 1000) from the formatted input file: 'vegtype.global', also, Read Olson data from formatted input file 'drydep.table' (formerly done in MODIN routine).
Author : ? HARVARD CTM
Version: ?

---

Declaration:

subroutine rdland

Calls the following subroutines/functions:

openunit

modin

Variables:

grid : used from domain_decomp_atm

getdomainbounds : used from domain_decomp_atm

am_i_root : used from domain_decomp_atm

write_parallel : used from domain_decomp_atm

readt_parallel : used from domain_decomp_atm

unpack_data : used from domain_decomp_atm

openunit : used from filemanager

closeunit : used from filemanager

nameunit : used from filemanager

im : used from resolution

jm : used from resolution

ijreg : used from tracers_drydep

ijland : used from tracers_drydep

ijuse : used from tracers_drydep

ireg : used from tracers_drydep

# of landtypes in grid square (read in, gridded)

ntype : used from tracers_drydep

idep : used from tracers_drydep

iri : used from tracers_drydep

irlu : used from tracers_drydep

irac : used from tracers_drydep

irgss : used from tracers_drydep

irgso : used from tracers_drydep

ircls : used from tracers_drydep

irclo : used from tracers_drydep

ivsmax : used from tracers_drydep

nvegtype : used from tracers_drydep

frclnd : used from tracers_drydep

iland : used from tracers_drydep

iuse : used from tracers_drydep

ireg_loc : used from tracers_drydep

ireg : used from tracers_drydep

# of landtypes in grid square (read in, gridded)

j : integer

local lat lon index

i : integer

local lat lon index

idummy : integer

dummy loop indicies

l : integer

dummy loop indicies

k : integer

dummy loop indicies

nwat : integer, parameter

number of olsons land types that are water
Initial Value = 6

nwat2 : integer

Number of Olson surface types that are water (read in)

iwater : integer, dimension(nwat)

ID index for Olson surface types that are water

com : character*1, dimension(70)

70 characters of comments to read in?

iu_data : integer

unit number for read

iols : integer

temp read in index

izo : integer, dimension(nvegtype)

roughness height for given surface type

ireg_glob : integer, dimension(im, jm)

ireg_real : real*8, dimension(im, jm)

iland_glob : integer, dimension(im, jm, ntype)

iuse_glob : integer, dimension(im, jm, ntype)

out_line : character(len=300)

j_0 : integer

j_1 : integer

j_1h : integer

j_0h : integer

i_0 : integer

i_1 : integer