scale_atmos_grid_icoa_index Module Reference

module atmosphere / grid / icosahedralA / index More...

Functions/Subroutines
subroutine, public	atmos_grid_icoa_index_setup
	setup index More...

Variables
integer, parameter, public	adm_ti = 1
integer, parameter, public	adm_tj = 2
integer, parameter, public	adm_ai = 1
integer, parameter, public	adm_aij = 2
integer, parameter, public	adm_aj = 3
integer, parameter, public	adm_knone = 1
integer, parameter, public	adm_nxyz = 3
integer, parameter, public	khalo = 1
	of halo cells: z More...
integer, public	ihalo = 1
	of halo cells: x More...
integer, public	jhalo = 1
	of halo cells: y More...
integer, public	adm_glevel
integer, public	adm_vlayer
integer, public	adm_lall
integer, parameter, public	adm_lall_pl = 2
integer, public	adm_gall
integer, public	adm_gall_in
integer, public	adm_gall_1d
integer, public	adm_gmin
integer, public	adm_gmax
integer, public	adm_iall
integer, public	adm_imin
integer, public	adm_imax
integer, public	adm_jall
integer, public	adm_jmin
integer, public	adm_jmax
integer, public	adm_vlink = -1
integer, public	adm_gall_pl
integer, parameter, public	adm_gslf_pl = 1
integer, parameter, public	adm_gmin_pl = 2
integer, public	adm_gmax_pl
integer, public	adm_kall
integer, public	adm_kmin
integer, public	adm_kmax
integer, public	ks
integer, public	ke
integer, public	ka
integer, public	imax = -1
integer, parameter, public	is = 1
integer, public	ie
integer, public	ia
integer, public	jmax = -1
integer, parameter, public	js = 1
integer, public	je
integer, public	ja

Detailed Description

module atmosphere / grid / icosahedralA / index

Description

Atmospheric grid Index module for the icosaphdralA grid

Author

Team SCALE

NAMELIST

• PARAM_ATMOS_GRID_ICOA_INDEX

  name	type	default value	comment
  GRID_LEVEL	integer	-1	> grid division level
  KMAX	integer	-1	# of computational cells: z, local

  
  

History Output

No history output

Function/Subroutine Documentation

atmos_grid_icoa_index_setup()

subroutine, public scale_atmos_grid_icoa_index::atmos_grid_icoa_index_setup

(

)

setup index

Definition at line 112 of file scale_atmos_grid_icoA_index.F90.

References adm_gall, adm_gall_1d, adm_gall_in, adm_gall_pl, adm_glevel, adm_gmax, adm_gmax_pl, adm_gmin, adm_iall, adm_imax, adm_imin, adm_jall, adm_jmax, adm_jmin, adm_kall, adm_kmax, adm_kmin, adm_lall, adm_vlayer, adm_vlink, scale_atmos_grid_cartesc_index::ia, scale_atmos_grid_cartesc_index::ie, scale_atmos_grid_cartesc_index::imax, scale_io::io_fid_conf, scale_atmos_grid_cartesc_index::ja, scale_atmos_grid_cartesc_index::je, scale_atmos_grid_cartesc_index::jmax, scale_atmos_grid_cartesc_index::ka, scale_atmos_grid_cartesc_index::ke, scale_atmos_grid_cartesc_index::ks, scale_prc::prc_abort(), scale_prc_icoa::prc_rgn_level, scale_prc_icoa::prc_rgn_local, scale_prc_icoa::prc_rgn_total, and scale_prc_icoa::prc_rgn_vlink.

    use scale_prc, only: &
       prc_abort
    use scale_prc_icoa, only: &
       prc_rgn_level, &
       prc_rgn_total, &
       prc_rgn_local, &
       prc_rgn_vlink
    implicit none

    integer :: grid_level = -1
    integer :: kmax       = -1

    namelist / param_atmos_grid_icoa_index / &
       grid_level, &
       kmax

    integer :: nmax

    integer :: ierr
    !---------------------------------------------------------------------------

    log_newline
    log_info("ATMOS_GRID_ICOA_INDEX_setup",*) 'Setup'

    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_atmos_grid_icoa_index,iostat=ierr)
    if( ierr < 0 ) then !--- missing
       log_info("ATMOS_GRID_ICOA_INDEX_setup",*) 'Not found namelist. Default used.'
    elseif( ierr > 0 ) then !--- fatal error
       log_error("ATMOS_GRID_ICOA_INDEX_setup",*) 'Not appropriate names in namelist PARAM_ATMOS_GRID_ICOA_INDEX. Check!'
       call prc_abort
    endif
    log_nml(param_atmos_grid_icoa_index)

    ! Error if glevel & rlevel are not defined
    if ( grid_level < 1 ) then
       log_error("ATMOS_GRID_ICOA_INDEX_setup",*) 'GRID_LEVEL must be >= 1! ', grid_level
       call prc_abort
    endif

    if ( kmax < 1 ) then
       log_error("ATMOS_GRID_ICOA_INDEX_setup",*) 'KMAX must be >= 1! ', kmax
       call prc_abort
    end if

    adm_glevel  = grid_level
    adm_vlayer  = kmax

    adm_lall    = prc_rgn_local

    nmax        = 2**(grid_level-prc_rgn_level)
    adm_gall_1d = 1 + nmax + 1
    adm_gmin    = 1 + 1
    adm_gmax    = 1 + nmax

    adm_gall    = ( 1+nmax+1 ) * ( 1+nmax+1 )
    adm_gall_in = (   nmax+1 ) * (   nmax+1 )

    adm_imin    = 1 + 1
    adm_imax    = 1 + nmax
    adm_iall    = 1 + nmax + 1
    adm_jmin    = 1 + 1
    adm_jmax    = 1 + nmax
    adm_jall    = 1 + nmax + 1

    adm_vlink   = prc_rgn_vlink
    adm_gall_pl = prc_rgn_vlink + 1
    adm_gmax_pl = prc_rgn_vlink + 1

    if ( adm_vlayer == 1 ) then
       adm_kall = 1
       adm_kmin = 1
       adm_kmax = 1
    else
       adm_kall = 1 + kmax + 1
       adm_kmin = 1 + 1
       adm_kmax = 1 + kmax
    endif

    ! for physics grid
    ks = adm_kmin
    ke = adm_kmax
    ka = adm_kall

    imax = nmax
    ! IS = 1
    ie = nmax + 1
    ia = ie

    jmax = nmax
    ! JS = 1
    je = nmax + 1
    ja = je

    log_newline
    log_info("ATMOS_GRID_ICOA_INDEX_setup",'(1x,A)') 'Grid management information'
    log_info_cont('(1x,A,I4)' )                      'Grid divisiona level (GL)         : ', grid_level
    log_info_cont('(1x,A,I7,2(A,I4),A,I7,A)')        'Total number of grid (horizontal) : ',      &
                                                     4**(grid_level-prc_rgn_level)*prc_rgn_total, &
                                                     ' (', 2**(grid_level-prc_rgn_level),         &
                                                     ' x', 2**(grid_level-prc_rgn_level),         &
                                                     ' x', prc_rgn_total, ' ) + 2 (pole)'
    log_info_cont('(1x,A,I7)')                       'Number of vertical layer          : ', adm_kmax-adm_kmin+1

    return

Here is the call graph for this function:

Variable Documentation

adm_ti

integer, parameter, public scale_atmos_grid_icoa_index::adm_ti = 1

Definition at line 34 of file scale_atmos_grid_icoA_index.F90.

  integer, public, parameter :: adm_ti = 1

adm_tj

integer, parameter, public scale_atmos_grid_icoa_index::adm_tj = 2

Definition at line 35 of file scale_atmos_grid_icoA_index.F90.

  integer, public, parameter :: adm_tj = 2

adm_ai

integer, parameter, public scale_atmos_grid_icoa_index::adm_ai = 1

Definition at line 38 of file scale_atmos_grid_icoA_index.F90.

  integer, public, parameter :: adm_ai  = 1

adm_aij

integer, parameter, public scale_atmos_grid_icoa_index::adm_aij = 2

Definition at line 39 of file scale_atmos_grid_icoA_index.F90.

  integer, public, parameter :: adm_aij = 2

adm_aj

integer, parameter, public scale_atmos_grid_icoa_index::adm_aj = 3

Definition at line 40 of file scale_atmos_grid_icoA_index.F90.

  integer, public, parameter :: adm_aj  = 3

adm_knone

integer, parameter, public scale_atmos_grid_icoa_index::adm_knone = 1

Definition at line 43 of file scale_atmos_grid_icoA_index.F90.

  integer, public, parameter :: adm_knone = 1

adm_nxyz

integer, parameter, public scale_atmos_grid_icoa_index::adm_nxyz = 3

Definition at line 46 of file scale_atmos_grid_icoA_index.F90.

  integer, public, parameter :: adm_nxyz = 3

khalo

integer, parameter, public scale_atmos_grid_icoa_index::khalo = 1

of halo cells: z

Definition at line 49 of file scale_atmos_grid_icoA_index.F90.

  integer, public, parameter :: khalo  = 1

ihalo

integer, public scale_atmos_grid_icoa_index::ihalo = 1

of halo cells: x

Definition at line 50 of file scale_atmos_grid_icoA_index.F90.

  integer, public            :: ihalo  = 1

jhalo

integer, public scale_atmos_grid_icoa_index::jhalo = 1

of halo cells: y

Definition at line 51 of file scale_atmos_grid_icoA_index.F90.

  integer, public            :: jhalo  = 1

adm_glevel

integer, public scale_atmos_grid_icoa_index::adm_glevel

Definition at line 54 of file scale_atmos_grid_icoA_index.F90.

Referenced by atmos_grid_icoa_index_setup().

  integer, public            :: adm_glevel           ! grid   division level

adm_vlayer

integer, public scale_atmos_grid_icoa_index::adm_vlayer

Definition at line 55 of file scale_atmos_grid_icoA_index.F90.

Referenced by atmos_grid_icoa_index_setup().

  integer, public            :: adm_vlayer           ! number of vertical layer

adm_lall

integer, public scale_atmos_grid_icoa_index::adm_lall

Definition at line 58 of file scale_atmos_grid_icoA_index.F90.

Referenced by atmos_grid_icoa_index_setup(), scale_comm_icoa::comm_setup(), and scale_comm_icoa::suf().

  integer, public            :: adm_lall             ! number of regular region per process

adm_lall_pl

integer, parameter, public scale_atmos_grid_icoa_index::adm_lall_pl = 2

Definition at line 59 of file scale_atmos_grid_icoA_index.F90.

Referenced by scale_comm_icoa::suf().

  integer, public, parameter :: adm_lall_pl     =  2 ! number of pole    region per process

adm_gall

integer, public scale_atmos_grid_icoa_index::adm_gall

Definition at line 62 of file scale_atmos_grid_icoA_index.F90.

Referenced by atmos_grid_icoa_index_setup(), and scale_comm_icoa::comm_setup().

  integer, public            :: adm_gall             ! number of horizontal grid per regular region

adm_gall_in

integer, public scale_atmos_grid_icoa_index::adm_gall_in

Definition at line 63 of file scale_atmos_grid_icoA_index.F90.

Referenced by atmos_grid_icoa_index_setup().

  integer, public            :: adm_gall_in          ! number of horizontal grid (inner part)

adm_gall_1d

integer, public scale_atmos_grid_icoa_index::adm_gall_1d

Definition at line 64 of file scale_atmos_grid_icoA_index.F90.

Referenced by atmos_grid_icoa_index_setup(), scale_comm_icoa::comm_setup(), and scale_comm_icoa::suf().

  integer, public            :: adm_gall_1d          ! number of horizontal grid (1D)

adm_gmin

integer, public scale_atmos_grid_icoa_index::adm_gmin

Definition at line 65 of file scale_atmos_grid_icoA_index.F90.

Referenced by atmos_grid_icoa_index_setup(), scale_comm_icoa::comm_setup(), and scale_comm_icoa::suf().

  integer, public            :: adm_gmin             ! start index of 1D horizontal grid

adm_gmax

integer, public scale_atmos_grid_icoa_index::adm_gmax

Definition at line 66 of file scale_atmos_grid_icoA_index.F90.

Referenced by atmos_grid_icoa_index_setup(), scale_comm_icoa::comm_setup(), and scale_comm_icoa::suf().

  integer, public            :: adm_gmax             ! end   index of 1D horizontal grid

adm_iall

integer, public scale_atmos_grid_icoa_index::adm_iall

Definition at line 68 of file scale_atmos_grid_icoA_index.F90.

Referenced by atmos_grid_icoa_index_setup().

  integer, public            :: adm_iall             ! number of horizontal grid per regular region (i-axis)

adm_imin

integer, public scale_atmos_grid_icoa_index::adm_imin

Definition at line 69 of file scale_atmos_grid_icoA_index.F90.

Referenced by atmos_grid_icoa_index_setup().

  integer, public            :: adm_imin             ! start index of 1D horizontal grid

adm_imax

integer, public scale_atmos_grid_icoa_index::adm_imax

Definition at line 70 of file scale_atmos_grid_icoA_index.F90.

Referenced by atmos_grid_icoa_index_setup().

  integer, public            :: adm_imax             ! end   index of 1D horizontal grid

adm_jall

integer, public scale_atmos_grid_icoa_index::adm_jall

Definition at line 71 of file scale_atmos_grid_icoA_index.F90.

Referenced by atmos_grid_icoa_index_setup().

  integer, public            :: adm_jall             ! number of horizontal grid per regular region (j-axis)

adm_jmin

integer, public scale_atmos_grid_icoa_index::adm_jmin

Definition at line 72 of file scale_atmos_grid_icoA_index.F90.

Referenced by atmos_grid_icoa_index_setup().

  integer, public            :: adm_jmin             ! start index of 1D horizontal grid

adm_jmax

integer, public scale_atmos_grid_icoa_index::adm_jmax

Definition at line 73 of file scale_atmos_grid_icoA_index.F90.

Referenced by atmos_grid_icoa_index_setup().

  integer, public            :: adm_jmax             ! end   index of 1D horizontal grid

adm_vlink

integer, public scale_atmos_grid_icoa_index::adm_vlink = -1

Definition at line 75 of file scale_atmos_grid_icoA_index.F90.

Referenced by atmos_grid_icoa_index_setup(), scale_comm_icoa::comm_setup(), and scale_comm_icoa::suf().

  integer, public            :: adm_vlink       = -1 ! maximum number of vertex linkage, ICO:5, PSP:6, LCP, MLCP:k

adm_gall_pl

integer, public scale_atmos_grid_icoa_index::adm_gall_pl

Definition at line 76 of file scale_atmos_grid_icoA_index.F90.

Referenced by atmos_grid_icoa_index_setup(), and scale_comm_icoa::suf().

  integer, public            :: adm_gall_pl          ! number of horizontal grid for pole region

adm_gslf_pl

integer, parameter, public scale_atmos_grid_icoa_index::adm_gslf_pl = 1

Definition at line 77 of file scale_atmos_grid_icoA_index.F90.

Referenced by scale_comm_icoa::comm_setup().

  integer, public, parameter :: adm_gslf_pl     =  1 ! index for pole point

adm_gmin_pl

integer, parameter, public scale_atmos_grid_icoa_index::adm_gmin_pl = 2

Definition at line 78 of file scale_atmos_grid_icoA_index.F90.

Referenced by scale_comm_icoa::comm_setup().

  integer, public, parameter :: adm_gmin_pl     =  2 ! start index of grid around the pole point

adm_gmax_pl

integer, public scale_atmos_grid_icoa_index::adm_gmax_pl

Definition at line 79 of file scale_atmos_grid_icoA_index.F90.

Referenced by atmos_grid_icoa_index_setup(), and scale_comm_icoa::comm_setup().

  integer, public            :: adm_gmax_pl          ! end   index of grid around the pole point

adm_kall

integer, public scale_atmos_grid_icoa_index::adm_kall

Definition at line 82 of file scale_atmos_grid_icoA_index.F90.

Referenced by atmos_grid_icoa_index_setup(), scale_comm_icoa::comm_data_transfer_dp(), scale_comm_icoa::comm_data_transfer_nopl(), scale_comm_icoa::comm_data_transfer_sp(), scale_comm_icoa::comm_setup(), and scale_comm_icoa::suf().

  integer, public            :: adm_kall             ! number of vertical grid

adm_kmin

integer, public scale_atmos_grid_icoa_index::adm_kmin

Definition at line 83 of file scale_atmos_grid_icoA_index.F90.

Referenced by atmos_grid_icoa_index_setup(), and scale_comm_icoa::suf().

  integer, public            :: adm_kmin             ! start index of vertical grid

adm_kmax

integer, public scale_atmos_grid_icoa_index::adm_kmax

Definition at line 84 of file scale_atmos_grid_icoA_index.F90.

Referenced by atmos_grid_icoa_index_setup(), and scale_comm_icoa::suf().

  integer, public            :: adm_kmax             ! end   index of vertical grid

ks

integer, public scale_atmos_grid_icoa_index::ks

Definition at line 87 of file scale_atmos_grid_icoA_index.F90.

  integer, public             :: ks

ke

integer, public scale_atmos_grid_icoa_index::ke

Definition at line 88 of file scale_atmos_grid_icoA_index.F90.

  integer, public             :: ke

ka

integer, public scale_atmos_grid_icoa_index::ka

Definition at line 89 of file scale_atmos_grid_icoA_index.F90.

  integer, public             :: ka

imax

integer, public scale_atmos_grid_icoa_index::imax = -1

Definition at line 90 of file scale_atmos_grid_icoA_index.F90.

Referenced by scale_land_grid_icoa_index::land_grid_icoa_index_setup(), scale_ocean_grid_icoa_index::ocean_grid_icoa_index_setup(), and scale_urban_grid_icoa_index::urban_grid_icoa_index_setup().

  integer, public             :: imax = -1

is

integer, parameter, public scale_atmos_grid_icoa_index::is = 1

Definition at line 91 of file scale_atmos_grid_icoA_index.F90.

Referenced by scale_land_grid_icoa_index::land_grid_icoa_index_setup(), scale_ocean_grid_icoa_index::ocean_grid_icoa_index_setup(), and scale_urban_grid_icoa_index::urban_grid_icoa_index_setup().

  integer, public, parameter  :: is = 1

ie

integer, public scale_atmos_grid_icoa_index::ie

Definition at line 92 of file scale_atmos_grid_icoA_index.F90.

Referenced by scale_land_grid_icoa_index::land_grid_icoa_index_setup(), scale_ocean_grid_icoa_index::ocean_grid_icoa_index_setup(), and scale_urban_grid_icoa_index::urban_grid_icoa_index_setup().

  integer, public             :: ie

ia

integer, public scale_atmos_grid_icoa_index::ia

Definition at line 93 of file scale_atmos_grid_icoA_index.F90.

Referenced by scale_land_grid_icoa_index::land_grid_icoa_index_setup(), scale_ocean_grid_icoa_index::ocean_grid_icoa_index_setup(), and scale_urban_grid_icoa_index::urban_grid_icoa_index_setup().

  integer, public             :: ia

jmax

integer, public scale_atmos_grid_icoa_index::jmax = -1

Definition at line 94 of file scale_atmos_grid_icoA_index.F90.

Referenced by scale_land_grid_icoa_index::land_grid_icoa_index_setup(), scale_ocean_grid_icoa_index::ocean_grid_icoa_index_setup(), and scale_urban_grid_icoa_index::urban_grid_icoa_index_setup().

  integer, public             :: jmax = -1

js

integer, parameter, public scale_atmos_grid_icoa_index::js = 1

Definition at line 95 of file scale_atmos_grid_icoA_index.F90.

Referenced by scale_land_grid_icoa_index::land_grid_icoa_index_setup(), scale_ocean_grid_icoa_index::ocean_grid_icoa_index_setup(), and scale_urban_grid_icoa_index::urban_grid_icoa_index_setup().

  integer, public, parameter  :: js = 1

je

integer, public scale_atmos_grid_icoa_index::je

Definition at line 96 of file scale_atmos_grid_icoA_index.F90.

Referenced by scale_land_grid_icoa_index::land_grid_icoa_index_setup(), scale_ocean_grid_icoa_index::ocean_grid_icoa_index_setup(), and scale_urban_grid_icoa_index::urban_grid_icoa_index_setup().

  integer, public             :: je

ja

integer, public scale_atmos_grid_icoa_index::ja

Definition at line 97 of file scale_atmos_grid_icoA_index.F90.

Referenced by scale_land_grid_icoa_index::land_grid_icoa_index_setup(), scale_ocean_grid_icoa_index::ocean_grid_icoa_index_setup(), and scale_urban_grid_icoa_index::urban_grid_icoa_index_setup().

  integer, public             :: ja