Index

Rundeck: E6TomaF40

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

diagijlt

Module:

File: TRACER_PRT.f

Summary: DIAGIJLt produces 3D lat-lon fields as maplets (6/page) or full-page digital maps, and binary (netcdf etc) files (if qdiag=true)
Author : Jean Lerner (adapted from work of G. Russell,R. Ruedy)
Version:

---

Declaration:

subroutine diagijlt

Variables:

im : used from resolution

jm : used from resolution

lm : used from resolution

modeleclock : used from model_com

jhour0 : used from model_com

jdate0 : used from model_com

amon : used from model_com

amon0 : used from model_com

jyear0 : used from model_com

nday : used from model_com

itime : used from model_com

itime0 : used from model_com

xlabel : used from model_com

lrunid : used from model_com

idacc : used from model_com

trw0 : used from oldtracer_mod

src_dist_index : used from oldtracer_mod

ntm : used from tracer_com

n_water : used from tracer_com

taijln : used from trdiag_com

taijls : used from trdiag_com

sname_ijlt : used from trdiag_com

lname_ijlt : used from trdiag_com

units_ijlt : used from trdiag_com

sname_ijt : used from trdiag_com

lname_ijt : used from trdiag_com

units_ijt : used from trdiag_com

scale_ijt : used from trdiag_com

ir_ijlt : used from trdiag_com

ia_ijlt : used from trdiag_com

scale_ijlt : used from trdiag_com

ktaijl : used from trdiag_com

to_per_mil : used from trdiag_com

maptxt : used from diag_serial

scale_ijlmap : used from diag_serial

teeny : used from constant

ijkgridc : used from diag_com

ctr_ml : used from diag_com

ir_m45_130 : used from diag_com

kdiag : used from diag_com

ir_log2 : used from diag_com

ia_src : used from diag_com

wt_ij : used from diag_com

qdiag : used from diag_com

acc_period : used from mdiag_com

sname_strlen : used from mdiag_com

units_strlen : used from mdiag_com

lname_strlen : used from mdiag_com

pmidl00 : used from atm_com

xlb : character

cpress : character*11, dimension(LM)

clev : character*3, dimension(LM)

i : integer

j : integer

l : integer

kxlb : integer

k : integer

maxntm : integer, parameter

Initial Value = 1000

qk : logical, dimension(ktmax)

: if Qk(k)=.true. field k still has to be processed

ktmax : integer, parameter

Initial Value = maxntm+ktaijl

iord : integer, dimension(ktmax)

: Index array, fields are processed in order Iord(k), k=1,2,..

nmaplets : integer

ijtype : integer, dimension(ktmax)

irange : integer, dimension(ktmax)

iacc : integer, dimension(ktmax)

lname : character(len=lname_strlen), dimension(ktmax)

name : character(len=sname_strlen), dimension(ktmax)

units : character(len=units_strlen), dimension(ktmax)

lgrid : integer, dimension(ktmax)

scale : real*8, dimension(ktmax)

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

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

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

smapijl : real*8, dimension(im, jm, lm)

smapj : real*8, dimension(jm)

smapjl : real*8, dimension(jm, lm)

line : character*133, dimension(53)

virtual half page (with room for overstrikes)

smapl : real*8, dimension(lm)

kx : integer

n : integer

kcolmn : integer

nlines : integer

jgrid : integer

n1 : integer

n2 : integer

nn : integer

days : real*8

gm : real*8

year : integer

hour : integer

date : integer