Changeset 2806 for palm/trunk/SOURCE

Timestamp:

Feb 14, 2018 5:10:37 PM (7 years ago)

Author:

thiele

Message:

Bugfixing Write statements

File:

• palm/trunk/SOURCE/pmc_interface_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/pmc_interface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfixing Write statements
+! 
+! 2804 2018-02-14 16:57:03Z thiele
 ! preprocessor directive for c_sizeof in case of __gfortran added
 ! 
@@ -1109 +1112 @@
         childgrid(m)%uz_coord_b = zmax_coarse(1)
 
-        WRITE(9,*)                 'edge coordinates for child id ',child_id,m
-        WRITE(9,*)                 'Number of Boundray cells lpm  ',nbgp_lpm
-        WRITE(9,'(a,3i7,2f10.2)') ' model size                    ', nx_cl, ny_cl, nz_cl, dx_cl, dy_cl
-        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
-        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
+!         WRITE(9,*)                 'edge coordinates for child id ',child_id,m
+!         WRITE(9,*)                 'Number of Boundray cells lpm  ',nbgp_lpm
+!         WRITE(9,'(a,3i7,2f10.2)') ' model size                    ', nx_cl, ny_cl, nz_cl, dx_cl, dy_cl
+!          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
+!          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
 
      END SUBROUTINE set_child_edge_coords