Changeset 1092 for palm/trunk/SOURCE/init_grid.f90
- Timestamp:
- Feb 2, 2013 11:24:22 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_grid.f90
r1070 r1092 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! unused variables removed 23 23 ! 24 24 ! Former revisions: … … 146 146 147 147 INTEGER :: bh, blx, bly, bxl, bxr, byn, bys, ch, cwx, cwy, cxl, cxr, cyn, & 148 cys, gls, i, ii, inc, i_center, j, j_center, k, l, nxl_l,&149 n xr_l, nyn_l, nys_l, nzb_si, nzt_l, vi148 cys, gls, i, ii, inc, j, k, l, nxl_l, nxr_l, nyn_l, nys_l, & 149 nzb_si, nzt_l, vi 150 150 151 151 INTEGER, DIMENSION(:), ALLOCATABLE :: vertical_influence … … 161 161 REAL, DIMENSION(:,:), ALLOCATABLE :: topo_height 162 162 163 REAL, DIMENSION(:,:,:), ALLOCATABLE :: distance164 163 165 164 !
Note: See TracChangeset
for help on using the changeset viewer.