Changeset 394 for palm/trunk/SOURCE/init_3d_model.f90

Timestamp:

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

Author:

heinze

Message:

var_ts is replaced by dots_max

File:

• palm/trunk/SOURCE/init_3d_model.f90 (modified) (2 diffs)

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) )