Changeset 343 for palm/trunk/SOURCE/modules.f90

Timestamp:

Jun 24, 2009 12:59:09 PM (15 years ago)

Author:

maronga

Message:

adjustments for lcxt4 and ibmy, allow user 2d xy cross section output at z=nzb+1

File:

• palm/trunk/SOURCE/modules.f90 (modified) (4 diffs)

palm/trunk/SOURCE/modules.f90

@@ -3 +3 @@
 
 !------------------------------------------------------------------------------!
-! Actual revisions:
+! Current revisions:
 ! -----------------
+! translation error of actual -> current revisions fixed
+! +q* in dots_label, dots_unit. increased dots_num respectively
 ! typographical error in dots_unit fixed
 ! +clip_dvrp_*, cluster_size, color_interval, dvrpsize_interval, dvrp_overlap,
@@ -824 +826 @@
                            replace_num = 6
 
-    INTEGER ::  dots_num = 22
+    INTEGER ::  dots_num = 23
 
     CHARACTER, DIMENSION( replace_num ) :: &
@@ -856 +858 @@
              'vmax   ', 'wmax   ', 'div_new', 'div_old', 'z_i_wpt', 'z_i_pt ', &
              'w*     ', 'w"pt"0 ', 'w"pt"  ', 'wpt    ', 'pt(0)  ', 'pt(zp) ', &
-             'w"u"0  ', 'w"v"0  ', 'w"q"0  ', 'mo_L   ',                       &
-             ( 'unknown', i9 = 1, 78) /)
+             'w"u"0  ', 'w"v"0  ', 'w"q"0  ', 'mo_L   ', 'q*     ',            &
+             ( 'unknown', i9 = 1, 77) /)
 
     CHARACTER (LEN=7), DIMENSION(dots_max) :: dots_unit = &
@@ -863 +865 @@
              'm/s    ', 'm/s    ', 's-1    ', 's-1    ', 'm      ', 'm      ', &
              'm/s    ', 'K m/s  ', 'K m/s  ', 'K m/s  ', 'K      ', 'K      ', &
-             'm2/s2  ', 'm2/s2  ', 'kg m/s ', 'm      ',                       &
-             ( 'unknown', i9 = 1, 78 ) /)
+             'm2/s2  ', 'm2/s2  ', 'kg m/s ', 'm      ', 'kg/kg  ',            &
+             ( 'unknown', i9 = 1, 77 ) /)
 
     CHARACTER (LEN=7), DIMENSION(300) ::  dopr_unit = 'unknown'