scale_external_input_rm Module Reference

module EXTERNAL INPUT More...

Functions/Subroutines
subroutine, public	extin_rm_get_dims_1d (dim1_max, dim1_S, dim1_E, varname, axistype)
	get_dims More...
subroutine, public	extin_rm_get_dims_2d (dim1_max, dim1_S, dim1_E, dim2_max, dim2_S, dim2_E, transpose, varname, axistype)
subroutine, public	extin_rm_get_dims_3d (dim1_max, dim1_S, dim1_E, dim2_max, dim2_S, dim2_E, dim3_max, dim3_S, dim3_E, transpose, varname, axistype)

Detailed Description

module EXTERNAL INPUT

Description

External file input RM module

Author

Team SCALE

Function/Subroutine Documentation

extin_rm_get_dims_1d()

subroutine, public scale_external_input_rm::extin_rm_get_dims_1d	(	integer, intent(out)	dim1_max,
		integer, intent(out)	dim1_S,
		integer, intent(out)	dim1_E,
		character(len=*), intent(in)	varname,
		character(len=*), intent(in)	axistype
	)

get_dims

Definition at line 55 of file scale_external_input_rm.F90.

References scale_grid_index::ieb, scale_grid_index::imaxb, scale_grid_index::isb, scale_grid_index::jeb, scale_grid_index::jmaxb, scale_grid_index::jsb, scale_grid_index::ke, scale_grid_index::kmax, scale_grid_index::ks, and scale_process::prc_mpistop().

Referenced by scale_external_input::extin_setup().

    use scale_process, only: &
       prc_mpistop
    implicit none
    integer,          intent(out) :: dim1_max
    integer,          intent(out) :: dim1_S
    integer,          intent(out) :: dim1_E
    character(len=*), intent(in)  :: varname
    character(len=*), intent(in)  :: axistype     ! axis type (Z/X/Y)

    select case ( axistype )
    case ( 'Z' )
       dim1_max = kmax
       dim1_s   = ks
       dim1_e   = ke
    case ( 'X' )
       dim1_max = imaxb
       dim1_s   = isb
       dim1_e   = ieb
    case ( 'Y' )
       dim1_max = jmaxb
       dim1_s   = jsb
       dim1_e   = jeb
    case default
       write(*,*) 'xxx [EXTIN_RM_get_dims_1D] unsupported axis type. Check! axistype:', trim(axistype), ', item:',trim(varname)
       call prc_mpistop
    end select

    return

Here is the call graph for this function:

Here is the caller graph for this function:

extin_rm_get_dims_2d()

subroutine, public scale_external_input_rm::extin_rm_get_dims_2d	(	integer, intent(out)	dim1_max,
		integer, intent(out)	dim1_S,
		integer, intent(out)	dim1_E,
		integer, intent(out)	dim2_max,
		integer, intent(out)	dim2_S,
		integer, intent(out)	dim2_E,
		logical, intent(out)	transpose,
		character(len=*), intent(in)	varname,
		character(len=*), intent(in)	axistype
	)

Definition at line 95 of file scale_external_input_rm.F90.

References scale_grid_index::ieb, scale_grid_index::imaxb, scale_grid_index::isb, scale_grid_index::jeb, scale_grid_index::jmaxb, scale_grid_index::jsb, scale_grid_index::ke, scale_grid_index::kmax, scale_grid_index::ks, and scale_process::prc_mpistop().

Referenced by scale_external_input::extin_setup().

    use scale_process, only: &
       prc_mpistop
    implicit none
    integer,          intent(out) :: dim1_max
    integer,          intent(out) :: dim1_S
    integer,          intent(out) :: dim1_E
    integer,          intent(out) :: dim2_max
    integer,          intent(out) :: dim2_S
    integer,          intent(out) :: dim2_E
    logical,          intent(out) :: transpose
    character(len=*), intent(in)  :: varname
    character(len=*), intent(in)  :: axistype     ! axis type (XY/XZ/ZX)

    select case ( axistype )
    case ( 'XY' )
       dim1_max = imaxb
       dim2_max = jmaxb
       dim1_s   = isb
       dim1_e   = ieb
       dim2_s   = jsb
       dim2_e   = jeb
       transpose = .false.
    case ( 'ZX' )
       dim1_max = kmax
       dim2_max = imaxb
       dim1_s   = ks
       dim1_e   = ke
       dim2_s   = isb
       dim2_e   = ieb
       transpose = .false.
    case ( 'XZ' )
       dim1_max = imaxb
       dim2_max = kmax
       dim1_s   = isb
       dim1_e   = ieb
       dim2_s   = ks
       dim2_e   = ke
       transpose = .true.
    case default
       write(*,*) 'xxx [EXTIN_RM_get_dims_2D] unsupported axis type. Check! axistype:', trim(axistype), ', item:',trim(varname)
       call prc_mpistop
    end select

    return

Here is the call graph for this function:

Here is the caller graph for this function:

extin_rm_get_dims_3d()

subroutine, public scale_external_input_rm::extin_rm_get_dims_3d	(	integer, intent(out)	dim1_max,
		integer, intent(out)	dim1_S,
		integer, intent(out)	dim1_E,
		integer, intent(out)	dim2_max,
		integer, intent(out)	dim2_S,
		integer, intent(out)	dim2_E,
		integer, intent(out)	dim3_max,
		integer, intent(out)	dim3_S,
		integer, intent(out)	dim3_E,
		logical, intent(out)	transpose,
		character(len=*), intent(in)	varname,
		character(len=*), intent(in)	axistype
	)

Definition at line 154 of file scale_external_input_rm.F90.

References scale_grid_index::ieb, scale_grid_index::imaxb, scale_grid_index::isb, scale_grid_index::jeb, scale_grid_index::jmaxb, scale_grid_index::jsb, scale_grid_index::ke, scale_grid_index::kmax, scale_grid_index::ks, scale_land_grid_index::lke, scale_land_grid_index::lkmax, scale_land_grid_index::lks, scale_process::prc_mpistop(), scale_urban_grid_index::uke, scale_urban_grid_index::ukmax, and scale_urban_grid_index::uks.

Referenced by scale_external_input::extin_setup().

    use scale_process, only: &
       prc_mpistop
    implicit none
    integer,          intent(out) :: dim1_max
    integer,          intent(out) :: dim1_S
    integer,          intent(out) :: dim1_E
    integer,          intent(out) :: dim2_max
    integer,          intent(out) :: dim2_S
    integer,          intent(out) :: dim2_E
    integer,          intent(out) :: dim3_max
    integer,          intent(out) :: dim3_S
    integer,          intent(out) :: dim3_E
    logical,          intent(out) :: transpose
    character(len=*), intent(in)  :: varname
    character(len=*), intent(in)  :: axistype     ! axis type (ZXY/XYZ/LXY/XYL/UXY/XYU)

    select case ( axistype )
    case ( 'ZXY' )
       dim1_max = kmax
       dim2_max = imaxb
       dim3_max = jmaxb
       dim1_s   = ks
       dim1_e   = ke
       dim2_s   = isb
       dim2_e   = ieb
       dim3_s   = jsb
       dim3_e   = jeb
       transpose = .false.
    case ( 'XYZ' )
       dim1_max = imaxb
       dim2_max = jmaxb
       dim3_max = kmax
       dim1_s   = isb
       dim1_e   = ieb
       dim2_s   = jsb
       dim2_e   = jeb
       dim3_s   = ks
       dim3_e   = ke
       transpose = .true.
    case ( 'LXY' ) ! LAND
       dim1_max = lkmax
       dim2_max = imaxb
       dim3_max = jmaxb
       dim1_s   = lks
       dim1_e   = lke
       dim2_s   = isb
       dim2_e   = ieb
       dim3_s   = jsb
       dim3_e   = jeb
       transpose = .false.
    case ( 'XYL' ) ! LAND
       dim1_max = imaxb
       dim2_max = jmaxb
       dim3_max = lkmax
       dim1_s   = isb
       dim1_e   = ieb
       dim2_s   = jsb
       dim2_e   = jeb
       dim3_s   = lks
       dim3_e   = lke
       transpose = .true.
    case ( 'UXY' )
       dim1_max = ukmax
       dim2_max = imaxb
       dim3_max = jmaxb
       dim1_s   = uks
       dim1_e   = uke
       dim2_s   = isb
       dim2_e   = ieb
       dim3_s   = jsb
       dim3_e   = jeb
       transpose = .false.
    case ( 'XYU' )
       dim1_max = imaxb
       dim2_max = jmaxb
       dim3_max = ukmax
       dim1_s   = isb
       dim1_e   = ieb
       dim2_s   = jsb
       dim2_e   = jeb
       dim3_s   = uks
       dim3_e   = uke
       transpose = .true.
    case default
       write(*,*) 'xxx [EXTIN_RM_get_dims_3D] unsupported axis type. Check! axistype:', trim(axistype), ', item:',trim(varname)
       call prc_mpistop
    end select

    return

Here is the call graph for this function:

Here is the caller graph for this function: