Changeset 394


Ignore:
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:
3 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/CURRENT_MODIFICATIONS

    r392 r394  
    55Changed:
    66-------
     7var_ts is replaced by dots_max (modules,init_3d_model)
     8
     9modules,init_3d_model
    710
    811
  • palm/trunk/SOURCE/init_3d_model.f90

    r392 r394  
    77! Current revisions:
    88! -----------------
    9 !
     9! var_ts is replaced by dots_max
     10!
    1011!
    1112! Former revisions:
     
    137138              sums_up_fraction_l(10,3,0:statistic_regions),                 &
    138139              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) )
    140141    ALLOCATE( km_damp_x(nxl-1:nxr+1), km_damp_y(nys-1:nyn+1) )
    141142
  • palm/trunk/SOURCE/modules.f90

    r392 r394  
    55! Current revisions:
    66! -----------------
    7 !
     7! -var_ts: replaced by dots_max
     8!
    89!
    910! Former revisions:
     
    867868             'w*     ', 'w"pt"0 ', 'w"pt"  ', 'wpt    ', 'pt(0)  ', 'pt(zp) ', &
    868869             'w"u"0  ', 'w"v"0  ', 'w"q"0  ', 'mo_L   ', 'q*     ',            &
    869              ( 'unknown', i9 = 1, 77) /)
     870             ( 'unknown', i9 = 1, dots_max-23 ) /)
    870871
    871872    CHARACTER (LEN=7), DIMENSION(dots_max) :: dots_unit = &
     
    874875             'm/s    ', 'K m/s  ', 'K m/s  ', 'K m/s  ', 'K      ', 'K      ', &
    875876             'm2/s2  ', 'm2/s2  ', 'kg m/s ', 'm      ', 'kg/kg  ',            &
    876              ( 'unknown', i9 = 1, 77 ) /)
     877             ( 'unknown', i9 = 1, dots_max-23 ) /)
    877878
    878879    CHARACTER (LEN=7), DIMENSION(300) ::  dopr_unit = 'unknown'
     
    12311232
    12321233    CHARACTER (LEN=40) ::  region(0:9)
    1233     INTEGER ::  pr_palm = 80, statistic_regions = 0, var_ts = 100
     1234    INTEGER ::  pr_palm = 80, statistic_regions = 0
    12341235    INTEGER ::  u_max_ijk(3), v_max_ijk(3), w_max_ijk(3)
    12351236    LOGICAL ::  flow_statistics_called = .FALSE.
Note: See TracChangeset for help on using the changeset viewer.