Ignore:
Timestamp:
Apr 23, 2019 1:24:29 PM (2 years ago)
Author:
raasch
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/advec_s_up.f90

    r3665 r3927  
    2525! -----------------
    2626! $Id$
     27! pointer attribute removed from scalar 3d-array for performance reasons
     28!
     29! 3665 2019-01-10 08:28:24Z raasch
    2730! unused variables removed
    2831!
     
    125128
    126129       USE indices,                                                            &
    127            ONLY:  nxl, nxr, nyn, nys, nzb, nzt
     130           ONLY:  nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt
    128131
    129132       USE kinds
     
    140143       REAL(wp) ::  wkomp !< advection velocity along z-direction
    141144
    142        REAL(wp), DIMENSION(:,:,:), POINTER ::  sk !< treated scalar
     145       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk !< treated scalar
    143146
    144147
     
    201204
    202205       USE indices,                                                            &
    203            ONLY:  nzb, nzt
     206           ONLY:  nxlg, nxrg, nyng, nysg, nzb, nzt
    204207
    205208       USE kinds
     
    216219       REAL(wp) ::  wkomp !< advection velocity along z-direction
    217220       
    218        REAL(wp), DIMENSION(:,:,:), POINTER ::  sk !< treated scalar
     221       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk !< treated scalar
    219222
    220223
Note: See TracChangeset for help on using the changeset viewer.