Changeset 394 for palm/trunk/SOURCE
- Timestamp:
- Sep 29, 2009 2:34:24 PM (15 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/CURRENT_MODIFICATIONS
r392 r394 5 5 Changed: 6 6 ------- 7 var_ts is replaced by dots_max (modules,init_3d_model) 8 9 modules,init_3d_model 7 10 8 11 -
palm/trunk/SOURCE/init_3d_model.f90
r392 r394 7 7 ! Current revisions: 8 8 ! ----------------- 9 ! 9 ! var_ts is replaced by dots_max 10 ! 10 11 ! 11 12 ! Former revisions: … … 137 138 sums_up_fraction_l(10,3,0:statistic_regions), & 138 139 sums_wsts_bc_l(nzb:nzt+1,0:statistic_regions), & 139 ts_value( var_ts,0:statistic_regions) )140 ts_value(dots_max,0:statistic_regions) ) 140 141 ALLOCATE( km_damp_x(nxl-1:nxr+1), km_damp_y(nys-1:nyn+1) ) 141 142 -
palm/trunk/SOURCE/modules.f90
r392 r394 5 5 ! Current revisions: 6 6 ! ----------------- 7 ! 7 ! -var_ts: replaced by dots_max 8 ! 8 9 ! 9 10 ! Former revisions: … … 867 868 'w* ', 'w"pt"0 ', 'w"pt" ', 'wpt ', 'pt(0) ', 'pt(zp) ', & 868 869 'w"u"0 ', 'w"v"0 ', 'w"q"0 ', 'mo_L ', 'q* ', & 869 ( 'unknown', i9 = 1, 77) /)870 ( 'unknown', i9 = 1, dots_max-23 ) /) 870 871 871 872 CHARACTER (LEN=7), DIMENSION(dots_max) :: dots_unit = & … … 874 875 'm/s ', 'K m/s ', 'K m/s ', 'K m/s ', 'K ', 'K ', & 875 876 'm2/s2 ', 'm2/s2 ', 'kg m/s ', 'm ', 'kg/kg ', & 876 ( 'unknown', i9 = 1, 77) /)877 ( 'unknown', i9 = 1, dots_max-23 ) /) 877 878 878 879 CHARACTER (LEN=7), DIMENSION(300) :: dopr_unit = 'unknown' … … 1231 1232 1232 1233 CHARACTER (LEN=40) :: region(0:9) 1233 INTEGER :: pr_palm = 80, statistic_regions = 0 , var_ts = 1001234 INTEGER :: pr_palm = 80, statistic_regions = 0 1234 1235 INTEGER :: u_max_ijk(3), v_max_ijk(3), w_max_ijk(3) 1235 1236 LOGICAL :: flow_statistics_called = .FALSE.
Note: See TracChangeset
for help on using the changeset viewer.