Changeset 145 for palm/trunk/SOURCE/init_grid.f90
- Timestamp:
- Jan 9, 2008 8:17:38 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_grid.f90
r139 r145 428 428 ! 429 429 !-- Test output of nzb_local -1:ny+1,-1:nx+1 430 WRITE (9,*) '*** nzb_local ***'431 DO j = ny+1, -1, -1432 WRITE (9,'(194(1X,I2))') ( nzb_local(j,i), i = -1, nx+1 )433 ENDDO430 ! 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 434 434 435 435 ! … … 865 865 ! 866 866 !-- Test output of flag arrays 867 i = nxl_l868 WRITE (9,*) ' '869 WRITE (9,*) '*** mg level ', l, ' ***', mg_switch_to_pe0_level870 WRITE (9,*) ' inc=', inc, ' i =', nxl_l871 WRITE (9,*) ' nxl_l',nxl_l,' nxr_l=',nxr_l,' nys_l=',nys_l,' nyn_l=',nyn_l872 DO k = nzt_l+1, nzb, -1873 WRITE (9,'(194(1X,I2))') ( flags(k,j,i), j = nys_l-1, nyn_l+1 )874 ENDDO867 ! 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 875 875 876 876 inc = inc * 2
Note: See TracChangeset
for help on using the changeset viewer.