Changeset 1010 for palm/trunk/SOURCE/advec_s_bc.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/advec_s_bc.f90 (modified) (2 diffs)

palm/trunk/SOURCE/advec_s_bc.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! cpp switch __nopointer added for pointer free version
 !
 ! Former revisions:
@@ -69 +69 @@
              tendenz, t1, t2, zaehler
     REAL ::  fmax(2), fmax_l(2)
+#if defined( __nopointer )
+    REAL, DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk
+#else
     REAL, DIMENSION(:,:,:), POINTER ::  sk
+#endif
 
     REAL, DIMENSION(:,:), ALLOCATABLE ::  a0, a1, a12, a2, a22, immb, imme,  &