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

Timestamp:

Apr 23, 2019 1:24:29 PM (4 years ago)

Author:

raasch

Message:

pointer attribute removed from scalar 3d-array for performance reasons

File:

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

palm/trunk/SOURCE/advec_s_pw.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! pointer attribute removed from scalar 3d-array for performance reasons
+! 
+! 3665 2019-01-10 08:28:24Z raasch
 ! unused variables removed
 ! 
@@ -128 +131 @@
 
        USE indices,                                                            &
-           ONLY:  nxl, nxr, nyn, nys, nzb, nzt
+           ONLY:  nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt
 
        USE kinds
@@ -142 +145 @@
        REAL(wp)     ::  gv  !< local additional advective velocity
 
-       REAL(wp), DIMENSION(:,:,:), POINTER ::  sk
+       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk
  
 
@@ -195 +198 @@
 
        USE indices,                                                            &
-           ONLY:  nzb, nzt
+           ONLY:  nxlg, nxrg, nyng, nysg, nzb, nzt
 
        USE kinds
@@ -209 +212 @@
        REAL(wp)     ::  gv  !< local additional advective velocity
 
-       REAL(wp), DIMENSION(:,:,:), POINTER ::  sk
+       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk