Ignore:
Timestamp:
Nov 22, 2018 10:28:35 AM (5 years ago)
Author:
suehring
Message:

further variables documented

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/init_pegrid.f90

    r3543 r3552  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! variables documented
    2323!
    2424! Former revisions:
     
    289289    IMPLICIT NONE
    290290
    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
    293293    INTEGER(iwp) ::  id_outflow_l             !< local value of id_outflow
    294294    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
    296296    INTEGER(iwp) ::  id_stg_left_l            !< left lateral boundary local core id in case of turbulence generator 
    297297    INTEGER(iwp) ::  id_stg_north_l           !< north lateral boundary local core id in case of turbulence generator 
    298298    INTEGER(iwp) ::  id_stg_right_l           !< right lateral boundary local core id in case of turbulence generator 
    299299    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)
    329329    INTEGER(iwp)               ::  lcoord(2)            !< PE coordinates of left neighbor along x and y
    330330    INTEGER(iwp)               ::  rcoord(2)            !< PE coordinates of right neighbor along x and y
Note: See TracChangeset for help on using the changeset viewer.