prescribed_aero Module Reference

Functions/Subroutines
subroutine, public	prescribed_aero_register ()
subroutine, public	prescribed_aero_init ()
subroutine, public	prescribed_aero_readnl (nlfile)
subroutine	add_interstitial_spec (aero_loop_end, i_in)
subroutine	spec_c_to_a (spec_c_in, spec_a_out)
subroutine, public	prescribed_aero_adv (state, pbuf2d)
subroutine	rand_sample_prescribed_aero (state, pbuf2d)
real(r8) function	randn_prescribed_aero ()
real(r8) function	get_normal_rand ()
integer function	logvm_get_index (name, type)
real(r8) function	boxmuller (ru1, ru2)
subroutine, public	init_prescribed_aero_restart (piofile)
subroutine, public	write_prescribed_aero_restart (piofile)
subroutine, public	read_prescribed_aero_restart (pioFile)
subroutine	kissvec (seed1, seed2, seed3, seed4, ran_arr)

Variables
type(trfld), dimension(:), pointer	fields
type(trfile)	file
logical, public	has_prescribed_aero = .false.
logical	clim_modal_aero = .false.
integer, parameter, public	n_aero = 50
integer	number_flds
character(len=256)	filename = ' '
character(len=256)	filelist = ' '
character(len=256)	datapath = ' '
character(len=32)	datatype = 'SERIAL'
logical	rmv_file = .false.
integer	cycle_yr = 0
integer	fixed_ymd = 0
integer	fixed_tod = 0
character(len=32), dimension(n_aero)	specifier = ''
character(len=16), dimension(:), allocatable	pbuf_names
integer	aero_cnt
integer	aero_cnt_c = 0
real(r8)	randn_persists
integer	s1
integer	s2
integer	s3
integer	s4
integer, dimension(4)	seedrst
integer	seed_dim
type(var_desc_t)	seedrst_desc
character(len=21), parameter	seedrstarr_name = 'prescraero_randn_seed'
character(len=25), parameter	seedrstarr_dim = 'prescraero_randn_seed_dim'

Function/Subroutine Documentation

add_interstitial_spec()

subroutine prescribed_aero::add_interstitial_spec	(	integer, intent(in)	aero_loop_end,
		integer, intent(in)	i_in
	)

Here is the call graph for this function:

Here is the caller graph for this function:

boxmuller()

real(r8) function prescribed_aero::boxmuller ( real(r8), intent(in)  ru1, real(r8), intent(in)  ru2  )

private

Here is the caller graph for this function:

get_normal_rand()

real(r8) function prescribed_aero::get_normal_rand

(

)

Here is the call graph for this function:

Here is the caller graph for this function:

init_prescribed_aero_restart()

subroutine, public prescribed_aero::init_prescribed_aero_restart

(

type(file_desc_t), intent(inout)

piofile

)

Here is the call graph for this function:

Here is the caller graph for this function:

kissvec()

subroutine prescribed_aero::kissvec	(	integer, intent(inout)	seed1,
		integer, intent(inout)	seed2,
		integer, intent(inout)	seed3,
		integer, intent(inout)	seed4,
		real(kind=r8), intent(inout)	ran_arr
	)

Here is the call graph for this function:

Here is the caller graph for this function:

logvm_get_index()

integer function prescribed_aero::logvm_get_index ( character(len=*), intent(in)  name, character(len=*), intent(in)  type  )

private

Here is the caller graph for this function:

prescribed_aero_adv()

subroutine, public prescribed_aero::prescribed_aero_adv	(	type(physics_state), dimension(begchunk:endchunk), intent(in)	state,
		type(physics_buffer_desc), dimension(:,:), pointer	pbuf2d
	)

Here is the call graph for this function:

Here is the caller graph for this function:

prescribed_aero_init()

subroutine, public prescribed_aero::prescribed_aero_init

(

)

Here is the call graph for this function:

Here is the caller graph for this function:

prescribed_aero_readnl()

subroutine, public prescribed_aero::prescribed_aero_readnl

(

character(len=*), intent(in)

nlfile

)

Here is the call graph for this function:

Here is the caller graph for this function:

prescribed_aero_register()

subroutine, public prescribed_aero::prescribed_aero_register

(

)

Here is the caller graph for this function:

rand_sample_prescribed_aero()

subroutine prescribed_aero::rand_sample_prescribed_aero	(	type(physics_state), dimension(begchunk:endchunk), intent(in)	state,
		type(physics_buffer_desc), dimension(:,:), pointer	pbuf2d
	)

Here is the call graph for this function:

Here is the caller graph for this function:

randn_prescribed_aero()

real(r8) function prescribed_aero::randn_prescribed_aero

(

)

Here is the call graph for this function:

Here is the caller graph for this function:

read_prescribed_aero_restart()

subroutine, public prescribed_aero::read_prescribed_aero_restart

(

type(file_desc_t)

pioFile

)

Here is the call graph for this function:

Here is the caller graph for this function:

spec_c_to_a()

subroutine prescribed_aero::spec_c_to_a ( character(len=*), intent(in)  spec_c_in, character(len=*), intent(out)  spec_a_out  )

private

Here is the caller graph for this function:

write_prescribed_aero_restart()

subroutine, public prescribed_aero::write_prescribed_aero_restart

(

type(file_desc_t)

piofile

)

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

aero_cnt

integer prescribed_aero::aero_cnt

private

aero_cnt_c

integer prescribed_aero::aero_cnt_c = 0

private

clim_modal_aero

logical prescribed_aero::clim_modal_aero = .false.

private

cycle_yr

integer prescribed_aero::cycle_yr = 0

private

datapath

character(len=256) prescribed_aero::datapath = ' '

private

datatype

character(len=32) prescribed_aero::datatype = 'SERIAL'

private

fields

type(trfld), dimension(:), pointer prescribed_aero::fields

private

file

type(trfile) prescribed_aero::file

private

filelist

character(len=256) prescribed_aero::filelist = ' '

private

filename

character(len=256) prescribed_aero::filename = ' '

private

fixed_tod

integer prescribed_aero::fixed_tod = 0

private

fixed_ymd

integer prescribed_aero::fixed_ymd = 0

private

has_prescribed_aero

logical, public prescribed_aero::has_prescribed_aero = .false.

n_aero

integer, parameter, public prescribed_aero::n_aero = 50

number_flds

integer prescribed_aero::number_flds

private

pbuf_names

character(len=16), dimension(:), allocatable prescribed_aero::pbuf_names

private

randn_persists

real(r8) prescribed_aero::randn_persists

private

rmv_file

logical prescribed_aero::rmv_file = .false.

private

s1

integer prescribed_aero::s1

private

s2

integer prescribed_aero::s2

private

s3

integer prescribed_aero::s3

private

s4

integer prescribed_aero::s4

private

seed_dim

integer prescribed_aero::seed_dim

private

seedrst

integer, dimension(4) prescribed_aero::seedrst

private

seedrst_desc

type(var_desc_t) prescribed_aero::seedrst_desc

private

seedrstarr_dim

character(len=25), parameter prescribed_aero::seedrstarr_dim = 'prescraero_randn_seed_dim'

private

seedrstarr_name

character(len=21), parameter prescribed_aero::seedrstarr_name = 'prescraero_randn_seed'

private

specifier

character(len=32), dimension(n_aero) prescribed_aero::specifier = ''

private