Changeset 20 for palm/trunk/SOURCE/diffusion_v.f90
- Timestamp:
- Feb 26, 2007 12:12:32 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/diffusion_v.f90
r4 r20 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! 6 ! Bugfix: ddzw dimensioned 1:nzt"+1" 7 7 ! 8 8 ! Former revisions: … … 52 52 INTEGER :: i, j, k 53 53 REAL :: kmxm_x, kmxm_y, kmxp_x, kmxp_y, kmzm, kmzp, vsus 54 REAL :: ddzu(1:nzt+1), ddzw(1:nzt ), km_damp_x(nxl-1:nxr+1)54 REAL :: ddzu(1:nzt+1), ddzw(1:nzt+1), km_damp_x(nxl-1:nxr+1) 55 55 REAL :: z0(nys-1:nyn+1,nxl-1:nxr+1) 56 56 REAL :: tend(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) … … 201 201 INTEGER :: i, j, k 202 202 REAL :: kmxm_x, kmxm_y, kmxp_x, kmxp_y, kmzm, kmzp, vsus 203 REAL :: ddzu(1:nzt+1), ddzw(1:nzt ), km_damp_x(nxl-1:nxr+1)203 REAL :: ddzu(1:nzt+1), ddzw(1:nzt+1), km_damp_x(nxl-1:nxr+1) 204 204 REAL :: z0(nys-1:nyn+1,nxl-1:nxr+1) 205 205 REAL :: tend(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1)
Note: See TracChangeset
for help on using the changeset viewer.