spedata Module Reference

Data Types
interface	get_ionpairs_profile
type	input_profile

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

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

Function/Subroutine Documentation

advance_spedata()

subroutine, public spedata::advance_spedata

(

)

Here is the call graph for this function:

Here is the caller graph for this function:

check_files()

subroutine spedata::check_files ( )

private

Here is the call graph for this function:

Here is the caller graph for this function:

find_times()

subroutine spedata::find_times	(	integer, dimension(2), intent(out)	itms,
		type(file_desc_t), dimension(2), intent(out)	fids,
		real(r8), intent(out)	datatm,
		real(r8), intent(out)	datatp,
		real(r8), intent(in)	time
	)

Here is the caller graph for this function:

get_dimension()

subroutine spedata::get_dimension ( type(file_desc_t), intent(in)  fid, character(*), intent(in)  dname, integer, intent(out)  dsize  )

private

Here is the caller graph for this function:

get_ionpairs()

subroutine spedata::get_ionpairs ( real(r8), dimension(:), intent(in)  model_pressures, real(r8), dimension(:), intent(out)  pairs  )

private

get_model_time()

subroutine spedata::get_model_time

(

)

Here is the call graph for this function:

Here is the caller graph for this function:

get_time_float()

real(r8) function spedata::get_time_float	(	integer, intent(in)	year,
		integer, intent(in)	month,
		integer, intent(in)	day,
		integer, intent(in)	sec
	)

Here is the call graph for this function:

Here is the caller graph for this function:

greg2jday()

integer function spedata::greg2jday ( integer, intent(in)  year, integer, intent(in)  month, integer, intent(in)  day  )

private

Here is the caller graph for this function:

incr_filename()

character(len=shr_kind_cl) function spedata::incr_filename

(

character(len=*), intent(in)

filename

)

Here is the call graph for this function:

Here is the caller graph for this function:

interpolate_spedata()

subroutine spedata::interpolate_spedata ( )

private

Here is the caller graph for this function:

open_spe_datafile()

subroutine spedata::open_spe_datafile ( character(*), intent(in)  fname, type(file_desc_t), intent(inout)  fileid, real(r8), dimension(:), intent(inout), pointer  times, logical, intent(in), optional  read_pressures  )

private

Here is the call graph for this function:

Here is the caller graph for this function:

read_next_spedata()

subroutine spedata::read_next_spedata ( )

private

Here is the call graph for this function:

Here is the caller graph for this function:

spedata_defaultopts()

subroutine, public spedata::spedata_defaultopts	(	character(len=shr_kind_cl), intent(out), optional	spe_data_file_out,
		logical, intent(out), optional	spe_remove_file_out,
		character(len=shr_kind_cl), intent(out), optional	spe_filenames_list_out
	)

Here is the caller graph for this function:

spedata_init()

subroutine, public spedata::spedata_init

(

)

Here is the call graph for this function:

Here is the caller graph for this function:

spedata_setopts()

subroutine, public spedata::spedata_setopts	(	character(len=shr_kind_cl), intent(in), optional	spe_data_file_in,
		logical, intent(in), optional	spe_remove_file_in,
		character(len=shr_kind_cl), intent(in), optional	spe_filenames_list_in
	)

Here is the caller graph for this function:

Variable Documentation

calendar

character(len=16) spedata::calendar

private

curr_data_times

real(r8), dimension(:), pointer spedata::curr_data_times => null()

private

curr_fileid

type(file_desc_t) spedata::curr_fileid

private

curr_filename

character(len=shr_kind_cl) spedata::curr_filename = ' '

private

curr_mod_time

real(r8) spedata::curr_mod_time

private

currfnameid

type(var_desc_t), pointer spedata::currfnameid => null()

private

datatimem

real(r8) spedata::datatimem = -1.e36_r8

private

datatimep

real(r8) spedata::datatimep = -1.e36_r8

private

dateid

integer spedata::dateid

private

filenames_list

character(len=shr_kind_cl) spedata::filenames_list = ''

private

ionpairs

real(r8), dimension(:), allocatable spedata::ionpairs

private

ionpairs_i

type(input_profile), dimension(2) spedata::ionpairs_i

private

next_data_times

real(r8), dimension(:), pointer spedata::next_data_times => null()

private

next_fileid

type(file_desc_t) spedata::next_fileid

private

next_filename

character(len=shr_kind_cl) spedata::next_filename = ' '

private

next_mod_time

real(r8) spedata::next_mod_time

private

nextfnameid

type(var_desc_t), pointer spedata::nextfnameid => null()

private

nm

integer, parameter spedata::nm =1

private

np

integer, parameter spedata::np =2

private

nprod_press

integer spedata::nprod_press

private

prod_id

integer spedata::prod_id

private

prod_pressures

real(r8), dimension(:), allocatable spedata::prod_pressures

private

remove_spe_file

logical spedata::remove_spe_file = .false.

private

secid

integer spedata::secid

private

spe_run

logical spedata::spe_run = .false.

private

spedata_file

character(len=shr_kind_cl) spedata::spedata_file = ' '

private