Changeset 3927 for palm/trunk/SOURCE/diffusion_s.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/diffusion_s.f90 (modified) (5 diffs)

palm/trunk/SOURCE/diffusion_s.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! pointer attribute removed from scalar 3d-array for performance reasons
+! 
+! 3761 2019-02-25 15:31:42Z raasch
 ! unused variables removed
 ! 
@@ -154 +157 @@
        
        USE indices,                                                            &
-           ONLY:  nxl, nxr, nyn, nys, nzb, nzt, wall_flags_0
+           ONLY:  nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt, wall_flags_0
        
        USE kinds
@@ -197 +200 @@
        REAL(wp), DIMENSION(1:surf_def_h(2)%ns) ::  s_flux_t           !< flux at model top
 
-       REAL(wp), DIMENSION(:,:,:), POINTER ::  s  !< treated scalar
+       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  s  !< treated scalar
 
 
@@ -483 +486 @@
        
        USE indices,                                                            &
-           ONLY:  nzb, nzt, wall_flags_0
+           ONLY:  nxlg, nxrg, nyng, nysg, nzb, nzt, wall_flags_0
        
        USE kinds
@@ -526 +529 @@
        REAL(wp), DIMENSION(1:surf_def_h(2)%ns) ::  s_flux_t           !< flux at model top
 
-       REAL(wp), DIMENSION(:,:,:), POINTER ::  s  !< treated scalar
+       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  s  !< treated scalar
 
 !