Changeset 2319 for palm


Ignore:
Timestamp:
Jul 20, 2017 5:33:17 PM (7 years ago)
Author:
suehring
Message:

remove print statements

File:
1 edited

Legend:

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

    r2318 r2319  
    2525! -----------------
    2626! $Id$
     27! Remove print statements
     28!
     29! 2318 2017-07-20 17:27:44Z suehring
    2730! Get topography top index via Function call
    2831!
     
    17221725!--          upward-facing surface element on scalar grid.
    17231726             zu_s_inner(i,j) = zu( get_topography_top_index( j, i, 's' ) )
    1724 
    1725              write(9,*)  get_topography_top_index( j, i, 's' ), MAXLOC(                                                    &
    1726                           MERGE( 1, 0,                                         &
    1727                                  BTEST( wall_flags_0(:,j,i), 12 )  &
    1728                                ), DIM = 1                                      &
    1729                           ) - 1
    17301727!
    17311728!--          Topography height on w grid. Therefore, determine index of
     
    17341731          ENDDO
    17351732       ENDDO
    1736        flush(9)
    17371733
    17381734    ENDIF
Note: See TracChangeset for help on using the changeset viewer.