Ignore:
Timestamp:
Oct 7, 2015 11:56:08 PM (6 years ago)
Author:
knoop
Message:

Code annotations made doxygen readable

File:
1 edited

Legend:

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

    r1679 r1682  
    1  SUBROUTINE init_grid
    2 
     1!> @file init_grid.f90
    32!--------------------------------------------------------------------------------!
    43! This file is part of PALM.
     
    2019! Current revisions:
    2120! -----------------
    22 !
     21! Code annotations made doxygen readable
    2322!
    2423! Former revisions:
     
    129128! Description:
    130129! ------------
    131 ! Creating grid depending constants
     130!> Creating grid depending constants
    132131!------------------------------------------------------------------------------!
     132 SUBROUTINE init_grid
     133 
    133134
    134135    USE arrays_3d,                                                             &
     
    172173    IMPLICIT NONE
    173174
    174     INTEGER(iwp) ::  bh      !:
    175     INTEGER(iwp) ::  blx     !:
    176     INTEGER(iwp) ::  bly     !:
    177     INTEGER(iwp) ::  bxl     !:
    178     INTEGER(iwp) ::  bxr     !:
    179     INTEGER(iwp) ::  byn     !:
    180     INTEGER(iwp) ::  bys     !:
    181     INTEGER(iwp) ::  ch      !:
    182     INTEGER(iwp) ::  cwx     !:
    183     INTEGER(iwp) ::  cwy     !:
    184     INTEGER(iwp) ::  cxl     !:
    185     INTEGER(iwp) ::  cxr     !:
    186     INTEGER(iwp) ::  cyn     !:
    187     INTEGER(iwp) ::  cys     !:
    188     INTEGER(iwp) ::  gls     !:
    189     INTEGER(iwp) ::  i       !:
    190     INTEGER(iwp) ::  ii      !:
    191     INTEGER(iwp) ::  inc     !:
    192     INTEGER(iwp) ::  j       !:
    193     INTEGER(iwp) ::  k       !:
    194     INTEGER(iwp) ::  l       !:
    195     INTEGER(iwp) ::  nxl_l   !:
    196     INTEGER(iwp) ::  nxr_l   !:
    197     INTEGER(iwp) ::  nyn_l   !:
    198     INTEGER(iwp) ::  nys_l   !:
    199     INTEGER(iwp) ::  nzb_si  !:
    200     INTEGER(iwp) ::  nzt_l   !:
    201     INTEGER(iwp) ::  vi      !:
    202 
    203     INTEGER(iwp), DIMENSION(:), ALLOCATABLE   ::  vertical_influence  !:
    204 
    205     INTEGER(iwp), DIMENSION(:,:), ALLOCATABLE ::  corner_nl  !:
    206     INTEGER(iwp), DIMENSION(:,:), ALLOCATABLE ::  corner_nr  !:
    207     INTEGER(iwp), DIMENSION(:,:), ALLOCATABLE ::  corner_sl  !:
    208     INTEGER(iwp), DIMENSION(:,:), ALLOCATABLE ::  corner_sr  !:
    209     INTEGER(iwp), DIMENSION(:,:), ALLOCATABLE ::  wall_l     !:
    210     INTEGER(iwp), DIMENSION(:,:), ALLOCATABLE ::  wall_n     !:
    211     INTEGER(iwp), DIMENSION(:,:), ALLOCATABLE ::  wall_r     !:
    212     INTEGER(iwp), DIMENSION(:,:), ALLOCATABLE ::  wall_s     !:
    213     INTEGER(iwp), DIMENSION(:,:), ALLOCATABLE ::  nzb_local  !:
    214     INTEGER(iwp), DIMENSION(:,:), ALLOCATABLE ::  nzb_tmp    !:
    215 
    216     LOGICAL :: flag_set = .FALSE.  !:
    217 
    218     REAL(wp) ::  dx_l          !:
    219     REAL(wp) ::  dy_l          !:
    220     REAL(wp) ::  dz_stretched  !:
    221 
    222     REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  topo_height  !:
     175    INTEGER(iwp) ::  bh      !<
     176    INTEGER(iwp) ::  blx     !<
     177    INTEGER(iwp) ::  bly     !<
     178    INTEGER(iwp) ::  bxl     !<
     179    INTEGER(iwp) ::  bxr     !<
     180    INTEGER(iwp) ::  byn     !<
     181    INTEGER(iwp) ::  bys     !<
     182    INTEGER(iwp) ::  ch      !<
     183    INTEGER(iwp) ::  cwx     !<
     184    INTEGER(iwp) ::  cwy     !<
     185    INTEGER(iwp) ::  cxl     !<
     186    INTEGER(iwp) ::  cxr     !<
     187    INTEGER(iwp) ::  cyn     !<
     188    INTEGER(iwp) ::  cys     !<
     189    INTEGER(iwp) ::  gls     !<
     190    INTEGER(iwp) ::  i       !<
     191    INTEGER(iwp) ::  ii      !<
     192    INTEGER(iwp) ::  inc     !<
     193    INTEGER(iwp) ::  j       !<
     194    INTEGER(iwp) ::  k       !<
     195    INTEGER(iwp) ::  l       !<
     196    INTEGER(iwp) ::  nxl_l   !<
     197    INTEGER(iwp) ::  nxr_l   !<
     198    INTEGER(iwp) ::  nyn_l   !<
     199    INTEGER(iwp) ::  nys_l   !<
     200    INTEGER(iwp) ::  nzb_si  !<
     201    INTEGER(iwp) ::  nzt_l   !<
     202    INTEGER(iwp) ::  vi      !<
     203
     204    INTEGER(iwp), DIMENSION(:), ALLOCATABLE   ::  vertical_influence  !<
     205
     206    INTEGER(iwp), DIMENSION(:,:), ALLOCATABLE ::  corner_nl  !<
     207    INTEGER(iwp), DIMENSION(:,:), ALLOCATABLE ::  corner_nr  !<
     208    INTEGER(iwp), DIMENSION(:,:), ALLOCATABLE ::  corner_sl  !<
     209    INTEGER(iwp), DIMENSION(:,:), ALLOCATABLE ::  corner_sr  !<
     210    INTEGER(iwp), DIMENSION(:,:), ALLOCATABLE ::  wall_l     !<
     211    INTEGER(iwp), DIMENSION(:,:), ALLOCATABLE ::  wall_n     !<
     212    INTEGER(iwp), DIMENSION(:,:), ALLOCATABLE ::  wall_r     !<
     213    INTEGER(iwp), DIMENSION(:,:), ALLOCATABLE ::  wall_s     !<
     214    INTEGER(iwp), DIMENSION(:,:), ALLOCATABLE ::  nzb_local  !<
     215    INTEGER(iwp), DIMENSION(:,:), ALLOCATABLE ::  nzb_tmp    !<
     216
     217    LOGICAL :: flag_set = .FALSE.  !<
     218
     219    REAL(wp) ::  dx_l          !<
     220    REAL(wp) ::  dy_l          !<
     221    REAL(wp) ::  dz_stretched  !<
     222
     223    REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  topo_height  !<
    223224
    224225   
Note: See TracChangeset for help on using the changeset viewer.