Changeset 1010 for palm/trunk/SOURCE/advec_s_up.f90
- Timestamp:
- Sep 20, 2012 7:59:54 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/advec_s_up.f90
r982 r1010 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! cpp switch __nopointer added for pointer free version 6 7 ! 7 8 ! Former revisions: … … 54 55 55 56 REAL :: ukomp, vkomp, wkomp 57 #if defined( __nopointer ) 58 REAL, DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) :: sk 59 #else 56 60 REAL, DIMENSION(:,:,:), POINTER :: sk 61 #endif 57 62 58 63 … … 113 118 114 119 REAL :: ukomp, vkomp, wkomp 120 #if defined( __nopointer ) 121 REAL, DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) :: sk 122 #else 115 123 REAL, DIMENSION(:,:,:), POINTER :: sk 124 #endif 116 125 117 126
Note: See TracChangeset
for help on using the changeset viewer.