Changeset 3552 for palm/trunk/SOURCE/init_pegrid.f90
- Timestamp:
- Nov 22, 2018 10:28:35 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_pegrid.f90
r3543 r3552 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! variables documented 23 23 ! 24 24 ! Former revisions: … … 289 289 IMPLICIT NONE 290 290 291 INTEGER(iwp) :: i !< 292 INTEGER(iwp) :: id_inflow_l !< 291 INTEGER(iwp) :: i !< running index over number of processors or number of multigrid level 292 INTEGER(iwp) :: id_inflow_l !< ID indicating processors located at the left inflow boundary 293 293 INTEGER(iwp) :: id_outflow_l !< local value of id_outflow 294 294 INTEGER(iwp) :: id_outflow_source_l !< local value of id_outflow_source 295 INTEGER(iwp) :: id_recycling_l !< 295 INTEGER(iwp) :: id_recycling_l !< ID indicating processors located at the recycling plane 296 296 INTEGER(iwp) :: id_stg_left_l !< left lateral boundary local core id in case of turbulence generator 297 297 INTEGER(iwp) :: id_stg_north_l !< north lateral boundary local core id in case of turbulence generator 298 298 INTEGER(iwp) :: id_stg_right_l !< right lateral boundary local core id in case of turbulence generator 299 299 INTEGER(iwp) :: id_stg_south_l !< south lateral boundary local core id in case of turbulence generator 300 INTEGER(iwp) :: ind(5) !< 301 INTEGER(iwp) :: j !< 302 INTEGER(iwp) :: k !< 303 INTEGER(iwp) :: maximum_grid_level_l !< 304 INTEGER(iwp) :: mg_levels_x !< 305 INTEGER(iwp) :: mg_levels_y !< 306 INTEGER(iwp) :: mg_levels_z !< 307 INTEGER(iwp) :: mg_switch_to_pe0_level_l !< 308 INTEGER(iwp) :: nnx_y !< 309 INTEGER(iwp) :: nny_x !< 310 INTEGER(iwp) :: nny_z !< 311 INTEGER(iwp) :: nnz_x !< 312 INTEGER(iwp) :: nnz_y !< 313 INTEGER(iwp) :: numproc_sqr !< 314 INTEGER(iwp) :: nxl_l !< 315 INTEGER(iwp) :: nxr_l !< 316 INTEGER(iwp) :: nyn_l !< 317 INTEGER(iwp) :: nys_l !< 318 INTEGER(iwp) :: nzb_l !< 319 INTEGER(iwp) :: nzt_l !< 320 !$ INTEGER(iwp) :: omp_get_num_threads !< 321 322 INTEGER(iwp), DIMENSION(:), ALLOCATABLE :: ind_all !< 323 INTEGER(iwp), DIMENSION(:), ALLOCATABLE :: nxlf !< 324 INTEGER(iwp), DIMENSION(:), ALLOCATABLE :: nxrf !< 325 INTEGER(iwp), DIMENSION(:), ALLOCATABLE :: nynf !< 326 INTEGER(iwp), DIMENSION(:), ALLOCATABLE :: nysf !< 327 328 INTEGER(iwp), DIMENSION(2) :: pdims_remote !< 300 INTEGER(iwp) :: ind(5) !< array containing the subdomain bounds 301 INTEGER(iwp) :: j !< running index, used for various loops 302 INTEGER(iwp) :: k !< number of vertical grid points in different multigrid level 303 INTEGER(iwp) :: maximum_grid_level_l !< maximum number of grid level without switching to PE 0 304 INTEGER(iwp) :: mg_levels_x !< maximum number of grid level allowed along x-direction 305 INTEGER(iwp) :: mg_levels_y !< maximum number of grid level allowed along y-direction 306 INTEGER(iwp) :: mg_levels_z !< maximum number of grid level allowed along z-direction 307 INTEGER(iwp) :: mg_switch_to_pe0_level_l !< maximum number of grid level with switching to PE 0 308 INTEGER(iwp) :: nnx_y !< quotient of number of grid points along x-direction and number of PEs used along y-direction 309 INTEGER(iwp) :: nny_x !< quotient of number of grid points along y-direction and number of PEs used along x-direction 310 INTEGER(iwp) :: nny_z !< quotient of number of grid points along y-direction and number of PEs used along x-direction 311 INTEGER(iwp) :: nnz_x !< quotient of number of grid points along z-direction and number of PEs used along x-direction 312 INTEGER(iwp) :: nnz_y !< quotient of number of grid points along z-direction and number of PEs used along x-direction 313 INTEGER(iwp) :: numproc_sqr !< square root of the number of processors 314 INTEGER(iwp) :: nxl_l !< lower index bound along x-direction on subdomain and different multigrid level 315 INTEGER(iwp) :: nxr_l !< upper index bound along x-direction on subdomain and different multigrid level 316 INTEGER(iwp) :: nyn_l !< lower index bound along y-direction on subdomain and different multigrid level 317 INTEGER(iwp) :: nys_l !< upper index bound along y-direction on subdomain and different multigrid level 318 INTEGER(iwp) :: nzb_l !< lower index bound along z-direction on subdomain and different multigrid level 319 INTEGER(iwp) :: nzt_l !< upper index bound along z-direction on subdomain and different multigrid level 320 !$ INTEGER(iwp) :: omp_get_num_threads !< number of OpenMP threads 321 322 INTEGER(iwp), DIMENSION(:), ALLOCATABLE :: ind_all !< dummy array containing index bounds on subdomain, used for gathering 323 INTEGER(iwp), DIMENSION(:), ALLOCATABLE :: nxlf !< lower index bound allong x-direction for every PE 324 INTEGER(iwp), DIMENSION(:), ALLOCATABLE :: nxrf !< upper index bound allong x-direction for every PE 325 INTEGER(iwp), DIMENSION(:), ALLOCATABLE :: nynf !< lower index bound allong y-direction for every PE 326 INTEGER(iwp), DIMENSION(:), ALLOCATABLE :: nysf !< lower index bound allong y-direction for every PE 327 328 INTEGER(iwp), DIMENSION(2) :: pdims_remote !< number of PEs used for coupled model (only in atmospher-ocean coupling) 329 329 INTEGER(iwp) :: lcoord(2) !< PE coordinates of left neighbor along x and y 330 330 INTEGER(iwp) :: rcoord(2) !< PE coordinates of right neighbor along x and y
Note: See TracChangeset
for help on using the changeset viewer.