Changeset 2806


Ignore:
Timestamp:
Feb 14, 2018 5:10:37 PM (6 years ago)
Author:
thiele
Message:

Bugfixing Write statements

File:
1 edited

Legend:

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

    r2804 r2806  
    2525! -----------------
    2626! $Id$
     27! Bugfixing Write statements
     28!
     29! 2804 2018-02-14 16:57:03Z thiele
    2730! preprocessor directive for c_sizeof in case of __gfortran added
    2831!
     
    11091112        childgrid(m)%uz_coord_b = zmax_coarse(1)
    11101113
    1111         WRITE(9,*)                 'edge coordinates for child id ',child_id,m
    1112         WRITE(9,*)                 'Number of Boundray cells lpm  ',nbgp_lpm
    1113         WRITE(9,'(a,3i7,2f10.2)') ' model size                    ', nx_cl, ny_cl, nz_cl, dx_cl, dy_cl
    1114         WRITE(9,'(a,5f10.2)')     ' model edge                    ', childgrid(m)%lx_coord, childgrid(m)%rx_coord, childgrid(m)%sy_coord, childgrid(m)%ny_coord,childgrid(m)%uz_coord
    1115         WRITE(9,'(a,4f10.2)')     ' model edge with Boundary      ', childgrid(m)%lx_coord_b, childgrid(m)%rx_coord_b, childgrid(m)%sy_coord_b, childgrid(m)%ny_coord_b
     1114!         WRITE(9,*)                 'edge coordinates for child id ',child_id,m
     1115!         WRITE(9,*)                 'Number of Boundray cells lpm  ',nbgp_lpm
     1116!         WRITE(9,'(a,3i7,2f10.2)') ' model size                    ', nx_cl, ny_cl, nz_cl, dx_cl, dy_cl
     1117!          WRITE(9,'(a,5f10.2)')     ' model edge                    ', childgrid(m)%lx_coord,  &
     1118!                                childgrid(m)%rx_coord, childgrid(m)%sy_coord,                  &
     1119!                                childgrid(m)%ny_coord,childgrid(m)%uz_coord
     1120!          WRITE(9,'(a,4f10.2)')     ' model edge with Boundary      ', childgrid(m)%lx_coord_b,&
     1121!                                childgrid(m)%rx_coord_b, childgrid(m)%sy_coord_b,              &
     1122!                                childgrid(m)%ny_coord_b
    11161123
    11171124     END SUBROUTINE set_child_edge_coords
Note: See TracChangeset for help on using the changeset viewer.