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

Timestamp:

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

Author:

raasch

Message:

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

File:

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

palm/trunk/SOURCE/advec_s_up.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
 ! 
@@ -125 +128 @@
 
        USE indices,                                                            &
-           ONLY:  nxl, nxr, nyn, nys, nzb, nzt
+           ONLY:  nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt
 
        USE kinds
@@ -140 +143 @@
        REAL(wp) ::  wkomp !< advection velocity along z-direction 
 
-       REAL(wp), DIMENSION(:,:,:), POINTER ::  sk !< treated scalar
+       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk !< treated scalar
 
 
@@ -201 +204 @@
 
        USE indices,                                                            &
-           ONLY:  nzb, nzt
+           ONLY:  nxlg, nxrg, nyng, nysg, nzb, nzt
 
        USE kinds
@@ -216 +219 @@
        REAL(wp) ::  wkomp !< advection velocity along z-direction 
        
-       REAL(wp), DIMENSION(:,:,:), POINTER ::  sk !< treated scalar
+       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk !< treated scalar