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/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!
Note: See TracChangeset for help on using the changeset viewer.