Changeset 3636 for palm/trunk/SOURCE/advec_s_pw.f90

Timestamp:

Dec 19, 2018 1:48:34 PM (5 years ago)

Author:

raasch

Message:

nopointer option removed

File:

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

palm/trunk/SOURCE/advec_s_pw.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! nopointer option removed
+! 
+! 3547 2018-11-21 13:21:24Z suehring
 ! variables documented
 ! 
@@ -136 +139 @@
        REAL(wp)     ::  gv  !< local additional advective velocity
 
-#if defined( __nopointer )
-       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk !<
-#else
        REAL(wp), DIMENSION(:,:,:), POINTER ::  sk
-#endif
  
 
@@ -207 +206 @@
        REAL(wp)     ::  gv  !< local additional advective velocity
 
-#if defined( __nopointer )
-       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk !<
-#else
        REAL(wp), DIMENSION(:,:,:), POINTER ::  sk
-#endif