Changeset 448 for palm/trunk/SOURCE/header.f90
- Timestamp:
- Feb 2, 2010 6:24:00 AM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/header.f90
r430 r448 1229 1229 DO WHILE ( ug_vertical_gradient_level_ind(i) /= -9999 ) 1230 1230 1231 print*, 'i=',i,' level_u=',ug_vertical_gradient_level_ind(i)1232 1231 WRITE (coor_chr,'(F6.2,1X)') ug(ug_vertical_gradient_level_ind(i)) 1233 1232 ugcomponent = TRIM( ugcomponent ) // ' ' // TRIM( coor_chr ) … … 1262 1261 DO WHILE ( vg_vertical_gradient_level_ind(i) /= -9999 ) 1263 1262 1264 print*, 'i=',i,' level_v=',vg_vertical_gradient_level_ind(i)1265 1263 WRITE (coor_chr,'(F6.2,1X)') vg(vg_vertical_gradient_level_ind(i)) 1266 1264 vgcomponent = TRIM( vgcomponent ) // ' ' // TRIM( coor_chr ) … … 1296 1294 DO WHILE ( pt_vertical_gradient_level_ind(i) /= -9999 ) 1297 1295 1298 print*, 'i=',i,' level_pt=',pt_vertical_gradient_level_ind(i)1299 1296 WRITE (coor_chr,'(F7.2)') pt_init(pt_vertical_gradient_level_ind(i)) 1300 1297 temperatures = TRIM( temperatures ) // ' ' // TRIM( coor_chr )
Note: See TracChangeset
for help on using the changeset viewer.