Changeset 708 for palm/trunk/SOURCE/init_grid.f90

Timestamp:

Mar 29, 2011 12:34:54 PM (14 years ago)

Author:

raasch

Message:

last commit documented

File:

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

palm/trunk/SOURCE/init_grid.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! bc_lr/ns replaced by bc_lr/ns_cyc
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 707 2011-03-29 11:39:40Z raasch
+! bc_lr/ns replaced by bc_lr/ns_cyc
 !
 ! 667 2010-12-23 12:06:00Z suehring/gryschka
@@ -540 +543 @@
 
 !
-!-- Test output of nzb_local -1:ny+1,-1:nx+1
-!    WRITE (9,*)  '*** nzb_local ***'
-!    DO  j = ny+1, -1, -1
-!       WRITE (9,'(194(1X,I2))')  ( nzb_local(j,i), i = -1, nx+1 )
-!    ENDDO
-
-!
 !-- Consistency checks and index array initialization are only required for
 !-- non-flat topography, also the initialization of topography height arrays