Changeset 167 for palm/trunk/SOURCE/header.f90
- Timestamp:
- May 15, 2008 1:19:25 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/header.f90
r153 r167 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Bugfix in the output of the characteristic levels of potential temperature, 7 ! geostrophic wind, scalar concentration, humidity and leaf area density 6 8 ! Output of turbulence recycling informations 7 9 ! … … 79 81 CHARACTER (LEN=21) :: ver_rev 80 82 CHARACTER (LEN=40) :: output_format 81 CHARACTER (LEN=70) :: char1, char2, coordinates, gradients,dopr_chr, &83 CHARACTER (LEN=70) :: char1, char2, dopr_chr, & 82 84 do2d_xy, do2d_xz, do2d_yz, do3d_chr, & 83 run_classification, slices, temperatures, learde, & 84 ugcomponent, vgcomponent 85 run_classification 86 CHARACTER (LEN=86) :: coordinates, gradients, learde, slices, & 87 temperatures, ugcomponent, vgcomponent 85 88 CHARACTER (LEN=85) :: roben, runten 86 89 … … 1004 1007 DO WHILE ( ug_vertical_gradient_level_ind(i) /= -9999 ) 1005 1008 1006 WRITE (coor_chr,'(F6.2, 4X)') ug(ug_vertical_gradient_level_ind(i))1009 WRITE (coor_chr,'(F6.2,1X)') ug(ug_vertical_gradient_level_ind(i)) 1007 1010 ugcomponent = TRIM( ugcomponent ) // ' ' // TRIM( coor_chr ) 1008 1011 1009 WRITE (coor_chr,'(F6.2, 4X)') ug_vertical_gradient(i)1012 WRITE (coor_chr,'(F6.2,1X)') ug_vertical_gradient(i) 1010 1013 gradients = TRIM( gradients ) // ' ' // TRIM( coor_chr ) 1011 1014 1012 WRITE (coor_chr,'(I6, 4X)') ug_vertical_gradient_level_ind(i)1015 WRITE (coor_chr,'(I6,1X)') ug_vertical_gradient_level_ind(i) 1013 1016 slices = TRIM( slices ) // ' ' // TRIM( coor_chr ) 1014 1017 1015 WRITE (coor_chr,'(F6.1, 4X)') ug_vertical_gradient_level(i)1018 WRITE (coor_chr,'(F6.1,1X)') ug_vertical_gradient_level(i) 1016 1019 coordinates = TRIM( coordinates ) // ' ' // TRIM( coor_chr ) 1017 1020 … … 1031 1034 DO WHILE ( vg_vertical_gradient_level_ind(i) /= -9999 ) 1032 1035 1033 WRITE (coor_chr,'(F6.2, 4X)') vg(vg_vertical_gradient_level_ind(i))1036 WRITE (coor_chr,'(F6.2,1X)') vg(vg_vertical_gradient_level_ind(i)) 1034 1037 vgcomponent = TRIM( vgcomponent ) // ' ' // TRIM( coor_chr ) 1035 1038 1036 WRITE (coor_chr,'(F6.2, 4X)') vg_vertical_gradient(i)1039 WRITE (coor_chr,'(F6.2,1X)') vg_vertical_gradient(i) 1037 1040 gradients = TRIM( gradients ) // ' ' // TRIM( coor_chr ) 1038 1041 1039 WRITE (coor_chr,'(I6, 4X)') vg_vertical_gradient_level_ind(i)1042 WRITE (coor_chr,'(I6,1X)') vg_vertical_gradient_level_ind(i) 1040 1043 slices = TRIM( slices ) // ' ' // TRIM( coor_chr ) 1041 1044 1042 WRITE (coor_chr,'(F6.1, 4X)') vg_vertical_gradient_level(i)1045 WRITE (coor_chr,'(F6.1,1X)') vg_vertical_gradient_level(i) 1043 1046 coordinates = TRIM( coordinates ) // ' ' // TRIM( coor_chr ) 1044 1047
Note: See TracChangeset
for help on using the changeset viewer.