Changeset 2319 for palm

Timestamp:

Jul 20, 2017 5:33:17 PM (7 years ago)

Author:

suehring

Message:

remove print statements

File:

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

palm/trunk/SOURCE/init_grid.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Remove print statements
+! 
+! 2318 2017-07-20 17:27:44Z suehring
 ! Get topography top index via Function call 
 ! 
@@ -1722 +1725 @@
 !--          upward-facing surface element on scalar grid. 
              zu_s_inner(i,j) = zu( get_topography_top_index( j, i, 's' ) )
-
-             write(9,*)  get_topography_top_index( j, i, 's' ), MAXLOC(                                                    &
-                          MERGE( 1, 0,                                         &
-                                 BTEST( wall_flags_0(:,j,i), 12 )  &
-                               ), DIM = 1                                      &
-                          ) - 1
 !
 !--          Topography height on w grid. Therefore, determine index of 
@@ -1734 +1731 @@
           ENDDO
        ENDDO
-       flush(9)
 
     ENDIF