Changeset 1001 for palm/trunk/SOURCE/diffusion_w.f90
- Timestamp:
- Sep 13, 2012 2:08:46 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/diffusion_w.f90
r979 r1001 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! 6 ! arrays comunicated by module instead of parameter list 7 7 ! 8 8 ! Former revisions: … … 60 60 ! Call for all grid points 61 61 !------------------------------------------------------------------------------! 62 SUBROUTINE diffusion_w( ddzu, ddzw, km, tend, u, v, w ) 63 62 SUBROUTINE diffusion_w 63 64 USE arrays_3d 64 65 USE control_parameters 65 66 USE grid_variables … … 70 71 INTEGER :: i, j, k 71 72 REAL :: kmxm, kmxp, kmym, kmyp 72 REAL :: ddzu(1:nzt+1), ddzw(1:nzt+1) 73 REAL :: tend(nzb:nzt+1,nysg:nyng,nxlg:nxrg) 74 REAL, DIMENSION(:,:,:), POINTER :: km, u, v, w 73 75 74 REAL, DIMENSION(nzb:nzt+1,nys:nyn,nxl:nxr) :: wsus, wsvs 76 75 … … 170 169 ! Call for grid point i,j 171 170 !------------------------------------------------------------------------------! 172 SUBROUTINE diffusion_w_ij( i, j, ddzu, ddzw, km, tend, u, v, w ) 173 171 SUBROUTINE diffusion_w_ij( i, j ) 172 173 USE arrays_3d 174 174 USE control_parameters 175 175 USE grid_variables … … 180 180 INTEGER :: i, j, k 181 181 REAL :: kmxm, kmxp, kmym, kmyp 182 REAL :: ddzu(1:nzt+1), ddzw(1:nzt+1) 183 REAL :: tend(nzb:nzt+1,nysg:nyng,nxlg:nxrg) 184 REAL, DIMENSION(nzb:nzt+1) :: wsus, wsvs 185 REAL, DIMENSION(:,:,:), POINTER :: km, u, v, w 182 183 REAL, DIMENSION(nzb:nzt+1) :: wsus, wsvs 186 184 187 185
Note: See TracChangeset
for help on using the changeset viewer.