Changeset 1010 for palm/trunk/SOURCE/diffusion_s.f90

Timestamp:

Sep 20, 2012 7:59:54 AM (12 years ago)

Author:

raasch

Message:

pointer free version can be generated with cpp switch nopointer

File:

• palm/trunk/SOURCE/diffusion_s.f90 (modified) (3 diffs)

palm/trunk/SOURCE/diffusion_s.f90

@@ -4 +4 @@
 ! Current revisions:
 ! ------------------
-!
+! cpp switch __nopointer added for pointer free version
 !
 ! Former revisions:
@@ -71 +71 @@
        REAL    ::  wall_s_flux(0:4)
        REAL, DIMENSION(nysg:nyng,nxlg:nxrg) ::  s_flux_b, s_flux_t
+#if defined( __nopointer )
+       REAL, DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  s
+#else
        REAL, DIMENSION(:,:,:), POINTER ::  s
+#endif
 
        DO  i = nxl, nxr
@@ -181 +185 @@
        REAL    ::  wall_s_flux(0:4)
        REAL, DIMENSION(nysg:nyng,nxlg:nxrg) ::  s_flux_b, s_flux_t
+#if defined( __nopointer )
+       REAL, DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  s
+#else
        REAL, DIMENSION(:,:,:), POINTER ::  s
+#endif
 
 !