Index

Rundeck: E6TomaF40

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

read_mon3dsources

Module:

File: TRACERS_AEROSOLS_Koch_e4.f

Summary: Read in monthly sources and interpolate to current day Calling routine must have the lines: real*8 tlca(im,jm,Ldim,nm),tlcb(im,jm,Ldim,nm) integer imon(nm) ! nm=number of files that will be read data jdlast /0/ save jdlast,tlca,tlcb,imon Input: iu, the fileUnit#; jdlast Output: interpolated data array + two monthly data arrays
Author : Jean Lerner and others / Greg Faluvegi
Version:

---

Declaration:

subroutine read_mon3dsources(ldim, iu, jdlast, tlca, tlcb, data1, frac, imon)

Variables:

modeleclock : used from model_com

idofm : used from juliancalendar_mod

Initial Value = >JDmidOfM

int_days_per_year : used from timeconstants_mod

int_months_per_year : used from timeconstants_mod

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

ldim : integer

how many vertical levels in the read-in file?

l : integer

dummy vertical loop variable

imon : integer

iu : integer

jdlast : integer

out_line : character(len=300)

frac : 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)

j_0 : integer

j_1 : integer