Index

Rundeck: E6TomaF40

Created: Sat May 18 03:30:40 EDT 2024

read_fl

Module: PHOTOLYSIS

File: TRCHEM_fastj2.f

Summary: READ_FL Instead of reading the photon fluxes (FL) once from the SPECFJ file, this now varyies year-to-year as read from FLTRAN ascii file witih format like that of the SPECFJ file and data which should be consistent with the radiation code input RADN9 file. Alternately, will read directly from the RADN9 file if that is netCDF and contains the needed variable.
Author : Greg Faluvegi (based on RD_TJPL above)
Version:

---

Declaration:

subroutine read_fl(end_of_day)

Variables:

openunit : used from filemanager

closeunit : used from filemanager

s0_yr : used from rad_com

icycs0 : used from radpar

icycs0f : used from radpar

modeleclock : used from model_com

r4 : real*4

local variable for scalar single precision reads

yearx : integer

iunit : integer

i : integer

iw : integer

wantyear : integer

firstyear : integer

lastyear : integer

icyc : integer

end_of_day : logical, intent(in)

out_line : character(len=300)

found1988 : logical

found1991 : logical

fltranfileexists : logical

Initial Value = .false.

radn9variableexists : logical

Initial Value = .true.

year : integer

dayofyear : integer

rc : integer

fid : integer

vid : integer

tid : integer

tdid : integer

ntimes : integer

i1988 : integer

i1991 : integer

iwantyear : integer

time : real*8, dimension(:), allocatable