Index

Rundeck: P1SoM40

Created: Fri May 10 03:30:18 EDT 2024

diagj

Module: DIAG_SERIAL

File: DIAG_PRT.f

Summary: DIAGJ produces area weighted statistics of zonal budget diags based on settings and quantities found in j_defs
Author : G. Schmidt/R. Ruedy/G. Russell
Version:

---

Declaration:

subroutine diagj

Variables:

teeny : used from constant

grid : used from domain_decomp_atm

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

itime : used from model_com

itime0 : used from model_com

nday : used from model_com

xlabel : used from model_com

lrunid : used from model_com

aj : used from diag_com

Initial Value = >aj_out

areg : used from diag_com

Initial Value = >areg_out

ntype_out : used from diag_com

ntype : used from diag_com

nreg : used from diag_com

kaj : used from diag_com

terrain : used from diag_com

qdiag : used from diag_com

kdiag : used from diag_com

namreg : used from diag_com

ia_j : used from diag_com

iden_j : used from diag_com

iden_reg : used from diag_com

scale_j : used from diag_com

stitle_j : used from diag_com

lname_j : used from diag_com

name_j : used from diag_com

units_j : used from diag_com

fmt_j : used from diag_com

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

qbp : used from diag_com

sname_strlen : used from mdiag_com

units_strlen : used from mdiag_com

lname_strlen : used from mdiag_com

acc_period : used from mdiag_com

inc : integer, parameter

Initial Value = 1+(JM-1)

budg : real*8, dimension(jm+3, kaj)

titleo : character*16, dimension(kaj)

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

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

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

byiacc : real*8

fglob : real*8

gsum : real*8

gwt : real*8

fhem : real*8, dimension(2)

hwt : real*8, dimension(2)

days : real*8

flat : real*8, dimension(jm)

hsumj : real*8, dimension(jm)

hwtj : real*8, dimension(jm)

mlat : integer, dimension(jm)

iacc : integer

j : integer

jr : integer

k : integer

m : integer

n : integer

it : integer

iu_ibp : integer

n_out : integer

fmt903 : character*200

fmt918 : character*200

year : integer

hour : integer

date : integer