IndexRundeck: E6TomaF40Created: Fri May 17 03:30:39 EDT 2024

diagtcp

Module:
File: TRACER_PRT.f
Summary: DIAGCP produces tables of the conservation diagnostics
Author : Gary Russell/Gavin Schmidt
Version:

Declaration:
Variables:
teeny : used from constant

twopi : used from constant

modeleclock : used from model_com

idacc : 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

areag : used from constant

itime_tr0 : used from oldtracer_mod

ntm : used from tracer_com

tconsrv : used from trdiag_com

ktcon : used from trdiag_com

scale_tcon : used from trdiag_com

title_tcon : used from trdiag_com

nsum_tcon : used from trdiag_com

ia_tcon : used from trdiag_com

nofmt : used from trdiag_com

lname_tconsrv : used from trdiag_com

name_tconsrv : used from trdiag_com

units_tconsrv : used from trdiag_com

natmtrcons : used from trdiag_com

nocntrcons : used from trdiag_com

inc : used from diag_com
Initial Value = >incj
kdiag : used from diag_com

qdiag : used from diag_com

jm : used from diag_com
Initial Value = >jm_budg
dxyp_budg : used from diag_com

lat_budg : used from diag_com

jeq : used from gc_com

xwon : used from diag_zonal

acc_period : used from mdiag_com

sname_strlen : used from mdiag_com

units_strlen : used from mdiag_com

lname_strlen : used from mdiag_com

marea : integer, dimension(jm)

fglob : real*8, dimension(ktcon)

fhem : real*8, dimension(2, ktcon)

cnslat : real*8, dimension(jm+3, ktcon)

hemis : character*4, parameter, dimension(2)
Initial Value = (/' SH ',' NH '/)
dash : character*4, parameter
Initial Value = ('----')
j : integer

jhemi : integer

jnh : integer

jp1 : integer

jpm : integer

jsh : integer

jx : integer

n : integer

k : integer

ktcon_max : integer

aglob : real*8

ahem : real*8

fnh : real*8

fsh : real*8

days : real*8

titleo : character*38, dimension(ktcon)

lnameo : character(len=lname_strlen), dimension(ktcon)

snameo : character(len=sname_strlen), dimension(ktcon)

unitso : character(len=units_strlen), dimension(ktcon)

year : integer

hour : integer

date : integer

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

Contact GISS NASA Privacy PolicyAccessibility