Changeset 394

Timestamp:

Sep 29, 2009 2:34:24 PM (15 years ago)

Author:

heinze

Message:

var_ts is replaced by dots_max

Location:

palm/trunk/SOURCE

Files:

• CURRENT_MODIFICATIONS (modified) (1 diff)
• init_3d_model.f90 (modified) (2 diffs)
• modules.f90 (modified) (4 diffs)

palm/trunk/SOURCE/CURRENT_MODIFICATIONS

@@ -5 +5 @@
 Changed:
 -------
+var_ts is replaced by dots_max (modules,init_3d_model)
+
+modules,init_3d_model
 
 

palm/trunk/SOURCE/init_3d_model.f90

@@ -7 +7 @@
 ! Current revisions:
 ! -----------------
-! 
+! var_ts is replaced by dots_max 
+!
 !
 ! Former revisions:
@@ -137 +138 @@
               sums_up_fraction_l(10,3,0:statistic_regions),                 &
               sums_wsts_bc_l(nzb:nzt+1,0:statistic_regions),                &
-              ts_value(var_ts,0:statistic_regions) )
+              ts_value(dots_max,0:statistic_regions) )
     ALLOCATE( km_damp_x(nxl-1:nxr+1), km_damp_y(nys-1:nyn+1) )
 

palm/trunk/SOURCE/modules.f90

@@ -5 +5 @@
 ! Current revisions:
 ! -----------------
-! 
+! -var_ts: replaced by dots_max
+!
 !
 ! Former revisions:
@@ -867 +868 @@
              'w*     ', 'w"pt"0 ', 'w"pt"  ', 'wpt    ', 'pt(0)  ', 'pt(zp) ', &
              'w"u"0  ', 'w"v"0  ', 'w"q"0  ', 'mo_L   ', 'q*     ',            &
-             ( 'unknown', i9 = 1, 77) /)
+             ( 'unknown', i9 = 1, dots_max-23 ) /)
 
     CHARACTER (LEN=7), DIMENSION(dots_max) :: dots_unit = &
@@ -874 +875 @@
              'm/s    ', 'K m/s  ', 'K m/s  ', 'K m/s  ', 'K      ', 'K      ', &
              'm2/s2  ', 'm2/s2  ', 'kg m/s ', 'm      ', 'kg/kg  ',            &
-             ( 'unknown', i9 = 1, 77 ) /)
+             ( 'unknown', i9 = 1, dots_max-23 ) /)
 
     CHARACTER (LEN=7), DIMENSION(300) ::  dopr_unit = 'unknown'
@@ -1231 +1232 @@
 
     CHARACTER (LEN=40) ::  region(0:9)
-    INTEGER ::  pr_palm = 80, statistic_regions = 0, var_ts = 100
+    INTEGER ::  pr_palm = 80, statistic_regions = 0
     INTEGER ::  u_max_ijk(3), v_max_ijk(3), w_max_ijk(3)
     LOGICAL ::  flow_statistics_called = .FALSE.