Ignore:
Timestamp:
Jan 9, 2008 8:17:38 AM (14 years ago)
Author:
raasch
Message:

second preliminary update for turbulent inflow

File:
1 edited

Legend:

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

    r139 r145  
    428428!
    429429!-- Test output of nzb_local -1:ny+1,-1:nx+1
    430     WRITE (9,*)  '*** nzb_local ***'
    431     DO  j = ny+1, -1, -1
    432        WRITE (9,'(194(1X,I2))')  ( nzb_local(j,i), i = -1, nx+1 )
    433     ENDDO
     430!    WRITE (9,*)  '*** nzb_local ***'
     431!    DO  j = ny+1, -1, -1
     432!       WRITE (9,'(194(1X,I2))')  ( nzb_local(j,i), i = -1, nx+1 )
     433!    ENDDO
    434434
    435435!
     
    865865!
    866866!--       Test output of flag arrays
    867           i = nxl_l
    868           WRITE (9,*)  ' '
    869           WRITE (9,*)  '*** mg level ', l, ' ***', mg_switch_to_pe0_level
    870           WRITE (9,*)  '    inc=', inc, '  i =', nxl_l
    871           WRITE (9,*)  '    nxl_l',nxl_l,' nxr_l=',nxr_l,' nys_l=',nys_l,' nyn_l=',nyn_l
    872           DO  k = nzt_l+1, nzb, -1
    873              WRITE (9,'(194(1X,I2))')  ( flags(k,j,i), j = nys_l-1, nyn_l+1 )
    874           ENDDO
     867!          i = nxl_l
     868!          WRITE (9,*)  ' '
     869!          WRITE (9,*)  '*** mg level ', l, ' ***', mg_switch_to_pe0_level
     870!          WRITE (9,*)  '    inc=', inc, '  i =', nxl_l
     871!          WRITE (9,*)  '    nxl_l',nxl_l,' nxr_l=',nxr_l,' nys_l=',nys_l,' nyn_l=',nyn_l
     872!          DO  k = nzt_l+1, nzb, -1
     873!             WRITE (9,'(194(1X,I2))')  ( flags(k,j,i), j = nys_l-1, nyn_l+1 )
     874!          ENDDO
    875875
    876876          inc = inc * 2
Note: See TracChangeset for help on using the changeset viewer.