Index

Rundeck: E6TomaF40

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

readlai

Module:

File: TRDRYDEP.f

Summary: READDLAI read in leaf area indicies from formatted file (chem_files/lai##.global) for one month.
Author : ? HARVARD CTM
Version: ?

---

Declaration:

subroutine readlai(offset)

Calls the following subroutines/functions:

openunit

Variables:

grid : used from domain_decomp_atm

getdomainbounds : used from domain_decomp_atm

getdomainbounds : used from domain_decomp_atm

am_i_root : used from domain_decomp_atm

readt_parallel : used from domain_decomp_atm

unpack_data : used from domain_decomp_atm

xlai : used from tracers_drydep

xlai2 : used from tracers_drydep

ireg : used from tracers_drydep

ntype : used from tracers_drydep

nvegtype : used from tracers_drydep

im : used from resolution

jm : used from resolution

modeleclock : used from model_com

int_months_per_year : used from timeconstants_mod

openunit : used from filemanager

closeunit : used from filemanager

offset : integer, intent(in)

to control upon restarts what month to read first

cmonth : character*2, parameter, dimension(0:int_months_per_year+1)

2-digit of current month (character)
Initial Value = (/'12','01','02','03','04','05','06','07','08','09','10', '11','12','01'/)

k : integer

dummy loop indicies

j : integer

dummy loop indicies

i : integer

dummy loop indicies

iunit : integer

unuit number of current file being read

number :

of types read from file for each i,j point

index : integer

xlai_glob : real*8, dimension(im, jm, ntype)

xlai2_glob : real*8, dimension(im, jm, ntype)

fbin : character*80

j_0 : integer

j_1 : integer

i_0 : integer

i_1 : integer