Ignore:
Timestamp:
Jul 18, 2016 12:01:49 PM (5 years ago)
Author:
suehring
Message:

PE-wise reading of topography file

File:
1 edited

Legend:

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

    r1818 r1968  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Change dimensions for nzb_local, which do not longer need to be set on
     22! multigrid ghost points.
    2223!
    2324! Former revisions:
     
    4647! ------------
    4748!> Execution of user-defined grid initializing actions
    48 !> First argument gls contains the number of ghost layers, which is > 1 if the
    49 !> multigrid method for the pressure solver is used
    5049!------------------------------------------------------------------------------!
    51  SUBROUTINE user_init_grid( gls, nzb_local )
     50 SUBROUTINE user_init_grid( nzb_local )
    5251 
    5352
     
    6261    IMPLICIT NONE
    6362
    64     INTEGER(iwp) ::  gls   !<
    65 
    66     INTEGER(iwp),                                                              &
    67        DIMENSION(-gls:ny+gls,-gls:nx+gls) ::                                   &
    68           nzb_local   !<
     63    INTEGER(iwp), DIMENSION(nysg:nyng,nxlg:nxrg) ::  nzb_local   !<
    6964
    7065!
Note: See TracChangeset for help on using the changeset viewer.