Changeset 448 for palm/trunk

Timestamp:

Feb 2, 2010 6:24:00 AM (15 years ago)

Author:

raasch

Message:

test print* removed in header

File:

• palm/trunk/SOURCE/header.f90 (modified) (3 diffs)

palm/trunk/SOURCE/header.f90

@@ -1229 +1229 @@
     DO  WHILE ( ug_vertical_gradient_level_ind(i) /= -9999 )
       
-       print*, 'i=',i,' level_u=',ug_vertical_gradient_level_ind(i)
        WRITE (coor_chr,'(F6.2,1X)')  ug(ug_vertical_gradient_level_ind(i))
        ugcomponent = TRIM( ugcomponent ) // '  ' // TRIM( coor_chr )
@@ -1262 +1261 @@
     DO  WHILE ( vg_vertical_gradient_level_ind(i) /= -9999 )
 
-       print*, 'i=',i,' level_v=',vg_vertical_gradient_level_ind(i)
        WRITE (coor_chr,'(F6.2,1X)')  vg(vg_vertical_gradient_level_ind(i))
        vgcomponent = TRIM( vgcomponent ) // '  ' // TRIM( coor_chr )
@@ -1296 +1294 @@
     DO  WHILE ( pt_vertical_gradient_level_ind(i) /= -9999 )
 
-       print*, 'i=',i,' level_pt=',pt_vertical_gradient_level_ind(i)
        WRITE (coor_chr,'(F7.2)')  pt_init(pt_vertical_gradient_level_ind(i))
        temperatures = TRIM( temperatures ) // ' ' // TRIM( coor_chr )