Changeset 1001 for palm/trunk/SOURCE/diffusion_v.f90
- Timestamp:
- Sep 13, 2012 2:08:46 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/diffusion_v.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: … … 66 66 ! Call for all grid points 67 67 !------------------------------------------------------------------------------! 68 SUBROUTINE diffusion_v( ddzu, ddzw, km, tend, u, v, vsws, vswst, w ) 69 68 SUBROUTINE diffusion_v 69 70 USE arrays_3d 70 71 USE control_parameters 71 72 USE grid_variables … … 76 77 INTEGER :: i, j, k 77 78 REAL :: kmxm, kmxp, kmzm, kmzp 78 REAL :: ddzu(1:nzt+1), ddzw(1:nzt+1) 79 REAL :: tend(nzb:nzt+1,nysg:nyng,nxlg:nxrg) 80 REAL, DIMENSION(:,:), POINTER :: vsws, vswst 81 REAL, DIMENSION(:,:,:), POINTER :: km, u, v, w 79 82 80 REAL, DIMENSION(nzb:nzt+1,nys:nyn,nxl:nxr) :: vsus 83 81 … … 219 217 ! Call for grid point i,j 220 218 !------------------------------------------------------------------------------! 221 SUBROUTINE diffusion_v_ij( i, j , ddzu, ddzw, km, tend, u, v, &222 vsws, vswst, w ) 223 219 SUBROUTINE diffusion_v_ij( i, j ) 220 221 USE arrays_3d 224 222 USE control_parameters 225 223 USE grid_variables … … 230 228 INTEGER :: i, j, k 231 229 REAL :: kmxm, kmxp, kmzm, kmzp 232 REAL :: ddzu(1:nzt+1), ddzw(1:nzt+1) 233 REAL :: tend(nzb:nzt+1,nysg:nyng,nxlg:nxrg) 234 REAL, DIMENSION(nzb:nzt+1) :: vsus 235 REAL, DIMENSION(:,:), POINTER :: vsws, vswst 236 REAL, DIMENSION(:,:,:), POINTER :: km, u, v, w 230 231 REAL, DIMENSION(nzb:nzt+1) :: vsus 237 232 238 233 !
Note: See TracChangeset
for help on using the changeset viewer.