Index

Rundeck: E6TomaF40

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

read_monthly_sources

Module:

File: TRACERS.f

Summary: Read in monthly sources and interpolate to current day Calling routine must have the lines: real*8 tlca(im,jm,nm),tlcb(im,jm,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
Version:

---

Declaration:

subroutine read_monthly_sources(iu, jdlast, tlca, tlcb, data, frac, imon)

Variables:

nameunit : used from filemanager

grid : used from domain_decomp_atm

getdomainbounds : used from domain_decomp_atm

am_i_root : used from domain_decomp_atm

readt_parallel : used from domain_decomp_atm

rewind_parallel : used from domain_decomp_atm

im : used from resolution

jm : used from resolution

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

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

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

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

frac : real*8

imon : integer

iu : integer

jdlast : integer

j_0 : integer

j_1 : integer

i_0 : integer

i_1 : integer