Changeset 20 for palm/trunk/SOURCE/diffusion_e.f90
- Timestamp:
- Feb 26, 2007 12:12:32 AM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/diffusion_e.f90
r19 r20 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Bugfix: ddzw dimensioned 1:nzt"+1" 6 7 ! Calculation extended for gridpoint nzt 7 8 ! … … 51 52 INTEGER :: i, j, k 52 53 REAL :: dpt_dz, l_stable, phi_m 53 REAL :: ddzu(1:nzt+1), dd2zu(1:nzt), ddzw(1:nzt ), &54 REAL :: ddzu(1:nzt+1), dd2zu(1:nzt), ddzw(1:nzt+1), & 54 55 l_grid(1:nzt), zu(0:nzt+1) 55 56 REAL, DIMENSION(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) :: diss, tend … … 166 167 INTEGER :: i, j, k 167 168 REAL :: dpt_dz, l_stable, phi_m 168 REAL :: ddzu(1:nzt+1), dd2zu(1:nzt), ddzw(1:nzt ), &169 REAL :: ddzu(1:nzt+1), dd2zu(1:nzt), ddzw(1:nzt+1), & 169 170 l_grid(1:nzt), zu(0:nzt+1) 170 171 REAL, DIMENSION(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) :: diss, tend
Note: See TracChangeset
for help on using the changeset viewer.