spedata.F90 File Reference

Data Types
interface	spedata::get_ionpairs_profile
type	spedata::input_profile

Modules
module	spedata

Functions/Subroutines
subroutine, public	spedata::spedata_defaultopts (spe_data_file_out, spe_remove_file_out, spe_filenames_list_out)
subroutine, public	spedata::spedata_setopts (spe_data_file_in, spe_remove_file_in, spe_filenames_list_in)
subroutine, public	spedata::spedata_init ()
subroutine, public	spedata::advance_spedata ()
subroutine	spedata::get_ionpairs (model_pressures, pairs)
subroutine	spedata::get_model_time ()
subroutine	spedata::check_files ()
character(len=shr_kind_cl) function	spedata::incr_filename (filename)
subroutine	spedata::find_times (itms, fids, datatm, datatp, time)
subroutine	spedata::read_next_spedata ()
subroutine	spedata::interpolate_spedata ()
subroutine	spedata::get_dimension (fid, dname, dsize)
subroutine	spedata::open_spe_datafile (fname, fileid, times, read_pressures)
real(r8) function	spedata::get_time_float (year, month, day, sec)
integer function	spedata::greg2jday (year, month, day)

Variables
logical	spedata::remove_spe_file = .false.
real(r8), dimension(:), allocatable	spedata::ionpairs
real(r8), dimension(:), allocatable	spedata::prod_pressures
type(input_profile), dimension(2)	spedata::ionpairs_i
integer	spedata::prod_id
integer	spedata::nprod_press
integer	spedata::dateid
integer	spedata::secid
real(r8)	spedata::datatimem = -1.e36_r8
real(r8)	spedata::datatimep = -1.e36_r8
integer, parameter	spedata::nm =1
integer, parameter	spedata::np =2
real(r8)	spedata::curr_mod_time
real(r8)	spedata::next_mod_time
character(len=shr_kind_cl)	spedata::curr_filename = ' '
character(len=shr_kind_cl)	spedata::next_filename = ' '
character(len=shr_kind_cl)	spedata::spedata_file = ' '
type(file_desc_t)	spedata::curr_fileid
type(file_desc_t)	spedata::next_fileid
type(var_desc_t), pointer	spedata::currfnameid => null()
type(var_desc_t), pointer	spedata::nextfnameid => null()
real(r8), dimension(:), pointer	spedata::curr_data_times => null()
real(r8), dimension(:), pointer	spedata::next_data_times => null()
character(len=shr_kind_cl)	spedata::filenames_list = ''
character(len=16)	spedata::calendar
logical	spedata::spe_run = .false.