Changeset 1010 for palm/trunk/SOURCE/diffusion_e.f90
- Timestamp:
- Sep 20, 2012 7:59:54 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/diffusion_e.f90
r1002 r1010 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! 6 ! cpp switch __nopointer added for pointer free version 7 7 ! 8 8 ! Former revisions: … … 80 80 REAL :: dvar_dz, l_stable, phi_m, var_reference 81 81 82 #if defined( __nopointer ) 83 REAL, DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) :: var 84 #else 82 85 REAL, DIMENSION(:,:,:), POINTER :: var 86 #endif 83 87 REAL, DIMENSION(nzb+1:nzt,nys:nyn) :: dissipation, l, ll 84 88 … … 298 302 REAL :: dvar_dz, l_stable, phi_m, var_reference 299 303 304 #if defined( __nopointer ) 305 REAL, DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) :: var 306 #else 300 307 REAL, DIMENSION(:,:,:), POINTER :: var 308 #endif 301 309 REAL, DIMENSION(nzb+1:nzt) :: dissipation, l, ll 302 310
Note: See TracChangeset
for help on using the changeset viewer.