Changeset 1743


Ignore:
Timestamp:
Jan 13, 2016 10:23:51 AM (6 years ago)
Author:
raasch
Message:

Bugfix for calculation of nzb_s_outer and nzb_u_outer at north boundary of total domain

File:
1 edited

Legend:

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

    r1692 r1743  
    11!> @file init_grid.f90
    2 !--------------------------------------------------------------------------------!
     2!-------------------------------------------------------------------------------!
    33! This file is part of PALM.
    44!
     
    1515!
    1616! Copyright 1997-2015 Leibniz Universitaet Hannover
    17 !--------------------------------------------------------------------------------!
     17!-------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Bugfix for calculation of nzb_s_outer and nzb_u_outer at north boundary of
     22! total domain
    2223!
    2324! Former revisions:
     
    836837             nzb_s_outer(j,i) = MAX( nzb_tmp(j+1,i), nzb_tmp(j,i) )
    837838          ENDIF
    838           IF ( nys == ny )  THEN
     839          IF ( nyn == ny )  THEN
    839840             j = ny + 1
    840841             nzb_s_outer(j,i) = MAX( nzb_tmp(j-1,i), nzb_tmp(j,i) )
     
    872873             nzb_u_outer(j,i) = MAX( nzb_tmp(j+1,i), nzb_tmp(j,i) )
    873874          ENDIF
    874           IF ( nys == ny )  THEN
     875          IF ( nyn == ny )  THEN
    875876             j = ny + 1
    876877             nzb_u_outer(j,i) = MAX( nzb_tmp(j-1,i), nzb_tmp(j,i) )
Note: See TracChangeset for help on using the changeset viewer.