scale_da_read_mp_pawr_toshiba Module Reference

Data Types
type	c_mppawr_header
interface	read_toshiba_mpr_c

Functions/Subroutines
integer function	da_read_mp_pawr_toshiba (fname, verbose, hd, az, el, rtdat)

Variables
integer, parameter	rdim = 800
integer, parameter	azdim = 320
integer, parameter	eldim = 120

Function/Subroutine Documentation

da_read_mp_pawr_toshiba()

integer function scale_da_read_mp_pawr_toshiba::da_read_mp_pawr_toshiba	(	character(*), intent(in)	fname,
		integer(c_int), value	verbose,
		type(c_mppawr_header), intent(out)	hd,
		real(c_float), dimension(azdim, eldim), intent(out)	az,
		real(c_float), dimension(azdim, eldim), intent(out)	el,
		real(c_float), dimension(rdim, azdim, eldim), intent(out)	rtdat
	)

Definition at line 39 of file scale_da_read_mp_pawr_toshiba.F90.

    integer :: DA_read_mp_pawr_toshiba
    character(*), intent(in) :: fname
    integer(c_int), value :: verbose
    type(c_mppawr_header), intent(out) :: hd
    real(c_float), intent(out) :: az(AZDIM, ELDIM)
    real(c_float), intent(out) :: el(AZDIM, ELDIM)
    real(c_float), intent(out) :: rtdat(RDIM, AZDIM, ELDIM)
    character(c_char) :: c_fname*1025
 
    !write(*, *) "jitdt_read_toshiba_f#jitdt_read_toshiba"
    c_fname = trim(fname) // c_null_char
 
    da_read_mp_pawr_toshiba = read_toshiba_mpr_c(c_fname, verbose, hd, az, el, rtdat)

Referenced by scale_letkf::letkf_add_inflation_setup().

Here is the caller graph for this function:

Variable Documentation

rdim

integer, parameter scale_da_read_mp_pawr_toshiba::rdim = 800

Definition at line 4 of file scale_da_read_mp_pawr_toshiba.F90.

  integer, parameter :: RDIM  = 800 ! max number of Range bins

Referenced by scale_letkf::letkf_add_inflation_setup(), and scale_da_read_mp_pawr_toshiba::read_toshiba_mpr_c::read_toshiba_mpr_c().

azdim

integer, parameter scale_da_read_mp_pawr_toshiba::azdim = 320

Definition at line 5 of file scale_da_read_mp_pawr_toshiba.F90.

  integer, parameter :: AZDIM = 320 ! max number of AZ angles

Referenced by scale_letkf::letkf_add_inflation_setup(), and scale_da_read_mp_pawr_toshiba::read_toshiba_mpr_c::read_toshiba_mpr_c().

eldim

integer, parameter scale_da_read_mp_pawr_toshiba::eldim = 120

Definition at line 6 of file scale_da_read_mp_pawr_toshiba.F90.

  integer, parameter :: ELDIM = 120 ! max number of AZ angles

Referenced by scale_letkf::letkf_add_inflation_setup(), and scale_da_read_mp_pawr_toshiba::read_toshiba_mpr_c::read_toshiba_mpr_c().