Changeset 448


Ignore:
Timestamp:
Feb 2, 2010 6:24:00 AM (14 years ago)
Author:
raasch
Message:

test print* removed in header

File:
1 edited

Legend:

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

    r430 r448  
    12291229    DO  WHILE ( ug_vertical_gradient_level_ind(i) /= -9999 )
    12301230     
    1231        print*, 'i=',i,' level_u=',ug_vertical_gradient_level_ind(i)
    12321231       WRITE (coor_chr,'(F6.2,1X)')  ug(ug_vertical_gradient_level_ind(i))
    12331232       ugcomponent = TRIM( ugcomponent ) // '  ' // TRIM( coor_chr )
     
    12621261    DO  WHILE ( vg_vertical_gradient_level_ind(i) /= -9999 )
    12631262
    1264        print*, 'i=',i,' level_v=',vg_vertical_gradient_level_ind(i)
    12651263       WRITE (coor_chr,'(F6.2,1X)')  vg(vg_vertical_gradient_level_ind(i))
    12661264       vgcomponent = TRIM( vgcomponent ) // '  ' // TRIM( coor_chr )
     
    12961294    DO  WHILE ( pt_vertical_gradient_level_ind(i) /= -9999 )
    12971295
    1298        print*, 'i=',i,' level_pt=',pt_vertical_gradient_level_ind(i)
    12991296       WRITE (coor_chr,'(F7.2)')  pt_init(pt_vertical_gradient_level_ind(i))
    13001297       temperatures = TRIM( temperatures ) // ' ' // TRIM( coor_chr )
Note: See TracChangeset for help on using the changeset viewer.