scale_da_read_pawr_toshiba Module Reference

Data Types
type	c_pawr_header
interface	read_toshiba_c

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

Variables
integer, parameter	rdim = 600
integer, parameter	azdim = 320
integer, parameter	eldim = 121

Function/Subroutine Documentation

da_read_pawr_toshiba()

integer function scale_da_read_pawr_toshiba::da_read_pawr_toshiba	(	character(*), intent(in)	fname,
		type(c_pawr_header), intent(out)	hd,
		real(kind=c_float), dimension(azdim, eldim), intent(out)	az,
		real(kind=c_float), dimension(azdim, eldim), intent(out)	el,
		real(kind=c_float), dimension(rdim, azdim, eldim), intent(out)	rtdat
	)

Definition at line 41 of file scale_da_read_pawr_toshiba.F90.

    integer :: DA_read_pawr_toshiba
    character(*), intent(in) :: fname
    type(c_pawr_header), intent(out) :: hd
    real(kind=c_float), intent(out) :: az(azdim, eldim)
    real(kind=c_float), intent(out) :: el(azdim, eldim)
    real(kind=c_float), intent(out) :: rtdat(rdim, azdim, eldim)
    character(kind=c_char) :: c_fname*1025
 
    !write(*, *) "jitdt_read_toshiba_f#jitdt_read_toshiba"
    c_fname = trim(fname) // c_null_char
 
    da_read_pawr_toshiba = read_toshiba_c(c_fname, hd, az, el, rtdat)

References azdim, eldim, and rdim.

Referenced by scale_letkf::letkf_add_inflation_setup().

Here is the caller graph for this function:

Variable Documentation

rdim

integer, parameter scale_da_read_pawr_toshiba::rdim = 600

Definition at line 4 of file scale_da_read_pawr_toshiba.F90.

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

Referenced by da_read_pawr_toshiba(), scale_letkf::letkf_add_inflation_setup(), and scale_da_read_pawr_toshiba::read_toshiba_c::read_toshiba_c().

azdim

integer, parameter scale_da_read_pawr_toshiba::azdim = 320

Definition at line 5 of file scale_da_read_pawr_toshiba.F90.

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

Referenced by da_read_pawr_toshiba(), scale_letkf::letkf_add_inflation_setup(), and scale_da_read_pawr_toshiba::read_toshiba_c::read_toshiba_c().

eldim

integer, parameter scale_da_read_pawr_toshiba::eldim = 121

Definition at line 6 of file scale_da_read_pawr_toshiba.F90.

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

Referenced by da_read_pawr_toshiba(), scale_letkf::letkf_add_inflation_setup(), and scale_da_read_pawr_toshiba::read_toshiba_c::read_toshiba_c().