Changeset 1743 for palm

Timestamp:

Jan 13, 2016 10:23:51 AM (9 years ago)

Author:

raasch

Message:

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

File:

• palm/trunk/SOURCE/init_grid.f90 (modified) (4 diffs)

palm/trunk/SOURCE/init_grid.f90

@@ -1 +1 @@
 !> @file init_grid.f90
-!--------------------------------------------------------------------------------!
+!-------------------------------------------------------------------------------!
 ! This file is part of PALM.
 !
@@ -15 +15 @@
 !
 ! Copyright 1997-2015 Leibniz Universitaet Hannover
-!--------------------------------------------------------------------------------!
+!-------------------------------------------------------------------------------!
 !
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix for calculation of nzb_s_outer and nzb_u_outer at north boundary of
+! total domain
 ! 
 ! Former revisions:
@@ -836 +837 @@
              nzb_s_outer(j,i) = MAX( nzb_tmp(j+1,i), nzb_tmp(j,i) )
           ENDIF
-          IF ( nys == ny )  THEN
+          IF ( nyn == ny )  THEN
              j = ny + 1
              nzb_s_outer(j,i) = MAX( nzb_tmp(j-1,i), nzb_tmp(j,i) )
@@ -872 +873 @@
              nzb_u_outer(j,i) = MAX( nzb_tmp(j+1,i), nzb_tmp(j,i) )
           ENDIF
-          IF ( nys == ny )  THEN
+          IF ( nyn == ny )  THEN
              j = ny + 1
              nzb_u_outer(j,i) = MAX( nzb_tmp(j-1,i), nzb_tmp(j,i) )