Changeset 3927 for palm/trunk/SOURCE
- Timestamp:
- Apr 23, 2019 1:24:29 PM (5 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 4 edited
-
advec_s_pw.f90 (modified) (5 diffs)
-
advec_s_up.f90 (modified) (5 diffs)
-
diffusion_s.f90 (modified) (5 diffs)
-
init_grid.f90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/advec_s_pw.f90
r3665 r3927 25 25 ! ----------------- 26 26 ! $Id$ 27 ! pointer attribute removed from scalar 3d-array for performance reasons 28 ! 29 ! 3665 2019-01-10 08:28:24Z raasch 27 30 ! unused variables removed 28 31 ! … … 128 131 129 132 USE indices, & 130 ONLY: nxl, nx r, nyn, nys, nzb, nzt133 ONLY: nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt 131 134 132 135 USE kinds … … 142 145 REAL(wp) :: gv !< local additional advective velocity 143 146 144 REAL(wp), DIMENSION( :,:,:), POINTER:: sk147 REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) :: sk 145 148 146 149 … … 195 198 196 199 USE indices, & 197 ONLY: n zb, nzt200 ONLY: nxlg, nxrg, nyng, nysg, nzb, nzt 198 201 199 202 USE kinds … … 209 212 REAL(wp) :: gv !< local additional advective velocity 210 213 211 REAL(wp), DIMENSION( :,:,:), POINTER:: sk214 REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) :: sk 212 215 213 216 -
palm/trunk/SOURCE/advec_s_up.f90
r3665 r3927 25 25 ! ----------------- 26 26 ! $Id$ 27 ! pointer attribute removed from scalar 3d-array for performance reasons 28 ! 29 ! 3665 2019-01-10 08:28:24Z raasch 27 30 ! unused variables removed 28 31 ! … … 125 128 126 129 USE indices, & 127 ONLY: nxl, nx r, nyn, nys, nzb, nzt130 ONLY: nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt 128 131 129 132 USE kinds … … 140 143 REAL(wp) :: wkomp !< advection velocity along z-direction 141 144 142 REAL(wp), DIMENSION( :,:,:), POINTER:: sk !< treated scalar145 REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) :: sk !< treated scalar 143 146 144 147 … … 201 204 202 205 USE indices, & 203 ONLY: n zb, nzt206 ONLY: nxlg, nxrg, nyng, nysg, nzb, nzt 204 207 205 208 USE kinds … … 216 219 REAL(wp) :: wkomp !< advection velocity along z-direction 217 220 218 REAL(wp), DIMENSION( :,:,:), POINTER:: sk !< treated scalar221 REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) :: sk !< treated scalar 219 222 220 223 -
palm/trunk/SOURCE/diffusion_s.f90
r3761 r3927 25 25 ! ----------------- 26 26 ! $Id$ 27 ! pointer attribute removed from scalar 3d-array for performance reasons 28 ! 29 ! 3761 2019-02-25 15:31:42Z raasch 27 30 ! unused variables removed 28 31 ! … … 154 157 155 158 USE indices, & 156 ONLY: nxl, nx r, nyn, nys, nzb, nzt, wall_flags_0159 ONLY: nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt, wall_flags_0 157 160 158 161 USE kinds … … 197 200 REAL(wp), DIMENSION(1:surf_def_h(2)%ns) :: s_flux_t !< flux at model top 198 201 199 REAL(wp), DIMENSION( :,:,:), POINTER:: s !< treated scalar202 REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) :: s !< treated scalar 200 203 201 204 … … 483 486 484 487 USE indices, & 485 ONLY: n zb, nzt, wall_flags_0488 ONLY: nxlg, nxrg, nyng, nysg, nzb, nzt, wall_flags_0 486 489 487 490 USE kinds … … 526 529 REAL(wp), DIMENSION(1:surf_def_h(2)%ns) :: s_flux_t !< flux at model top 527 530 528 REAL(wp), DIMENSION( :,:,:), POINTER:: s !< treated scalar531 REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) :: s !< treated scalar 529 532 530 533 ! -
palm/trunk/SOURCE/init_grid.f90
r3926 r3927 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! Fix bad commit22 ! 23 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Fix bad commit 28 ! 29 ! 3926 2019-04-23 12:56:42Z suehring 27 30 ! Minor bugfix in building mapping when all building IDs in the model domain 28 31 ! are missing
Note: See TracChangeset
for help on using the changeset viewer.
