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

read_monthly_3dsources
Module:
File: TRACERS.f
Summary: Read in monthly sources and interpolate to current day
Author : Jean Lerner and others / Greg Faluvegi
Version:
Declaration:
Variables:
im : used from resolution

jm : used from resolution

idofm : used from juliancalendar_mod
Initial Value = >JDmidOfM
nameunit : used from filemanager

grid : used from domain_decomp_atm

getdomainbounds : used from domain_decomp_atm

readt_parallel : used from domain_decomp_atm

rewind_parallel : used from domain_decomp_atm

write_parallel : used from domain_decomp_atm

backspace_parallel : used from domain_decomp_atm

am_i_root : used from domain_decomp_atm

ldim : integer
how many vertical levels in the read-in file?
l : integer
dummy vertical loop variable
imon : integer

iu : integer

ipos : integer

k : integer

nn : integer

k2 : integer

kstep : integer
Initial Value = 10
out_line : character(len=300)

frac : real*8

alpha : real*8

a2d : real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)

b2d : real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)

dummy : real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)

tlca : real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo, ldim)

tlcb : real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo, ldim)

data1 : real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo, ldim)

sfc_a : real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo, ldim)

sfc_b : real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo, ldim)

trans_emis : logical, intent(in)

yr1 : integer, intent(in)

yr2 : integer, intent(in)

xyear : integer, intent(in)

xday : integer, intent(in)

j_0 : integer

j_1 : integer

i_0 : integer

i_1 : integer

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

Contact GISS — NASA Privacy Policy — Accessibility