Changeset 3927 for palm/trunk


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

Location:
palm/trunk/SOURCE
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/advec_s_pw.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!
     
    128131
    129132       USE indices,                                                            &
    130            ONLY:  nxl, nxr, nyn, nys, nzb, nzt
     133           ONLY:  nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt
    131134
    132135       USE kinds
     
    142145       REAL(wp)     ::  gv  !< local additional advective velocity
    143146
    144        REAL(wp), DIMENSION(:,:,:), POINTER ::  sk
     147       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk
    145148 
    146149
     
    195198
    196199       USE indices,                                                            &
    197            ONLY:  nzb, nzt
     200           ONLY:  nxlg, nxrg, nyng, nysg, nzb, nzt
    198201
    199202       USE kinds
     
    209212       REAL(wp)     ::  gv  !< local additional advective velocity
    210213
    211        REAL(wp), DIMENSION(:,:,:), POINTER ::  sk
     214       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk
    212215
    213216
  • 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
  • palm/trunk/SOURCE/diffusion_s.f90

    r3761 r3927  
    2525! -----------------
    2626! $Id$
     27! pointer attribute removed from scalar 3d-array for performance reasons
     28!
     29! 3761 2019-02-25 15:31:42Z raasch
    2730! unused variables removed
    2831!
     
    154157       
    155158       USE indices,                                                            &
    156            ONLY:  nxl, nxr, nyn, nys, nzb, nzt, wall_flags_0
     159           ONLY:  nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt, wall_flags_0
    157160       
    158161       USE kinds
     
    197200       REAL(wp), DIMENSION(1:surf_def_h(2)%ns) ::  s_flux_t           !< flux at model top
    198201
    199        REAL(wp), DIMENSION(:,:,:), POINTER ::  s  !< treated scalar
     202       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  s  !< treated scalar
    200203
    201204
     
    483486       
    484487       USE indices,                                                            &
    485            ONLY:  nzb, nzt, wall_flags_0
     488           ONLY:  nxlg, nxrg, nyng, nysg, nzb, nzt, wall_flags_0
    486489       
    487490       USE kinds
     
    526529       REAL(wp), DIMENSION(1:surf_def_h(2)%ns) ::  s_flux_t           !< flux at model top
    527530
    528        REAL(wp), DIMENSION(:,:,:), POINTER ::  s  !< treated scalar
     531       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  s  !< treated scalar
    529532
    530533!
  • palm/trunk/SOURCE/init_grid.f90

    r3926 r3927  
    2020! Current revisions:
    2121! -----------------
    22 ! Fix bad commit
     22!
    2323!
    2424! Former revisions:
    2525! -----------------
    2626! $Id$
     27! Fix bad commit
     28!
     29! 3926 2019-04-23 12:56:42Z suehring
    2730! Minor bugfix in building mapping when all building IDs in the model domain
    2831! are missing
Note: See TracChangeset for help on using the changeset viewer.