Ignore:
Timestamp:
Jun 24, 2009 12:59:09 PM (12 years ago)
Author:
maronga
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/modules.f90

    r336 r343  
    33
    44!------------------------------------------------------------------------------!
    5 ! Actual revisions:
     5! Current revisions:
    66! -----------------
     7! translation error of actual -> current revisions fixed
     8! +q* in dots_label, dots_unit. increased dots_num respectively
    79! typographical error in dots_unit fixed
    810! +clip_dvrp_*, cluster_size, color_interval, dvrpsize_interval, dvrp_overlap,
     
    824826                           replace_num = 6
    825827
    826     INTEGER ::  dots_num = 22
     828    INTEGER ::  dots_num = 23
    827829
    828830    CHARACTER, DIMENSION( replace_num ) :: &
     
    856858             'vmax   ', 'wmax   ', 'div_new', 'div_old', 'z_i_wpt', 'z_i_pt ', &
    857859             'w*     ', 'w"pt"0 ', 'w"pt"  ', 'wpt    ', 'pt(0)  ', 'pt(zp) ', &
    858              'w"u"0  ', 'w"v"0  ', 'w"q"0  ', 'mo_L   ',                       &
    859              ( 'unknown', i9 = 1, 78) /)
     860             'w"u"0  ', 'w"v"0  ', 'w"q"0  ', 'mo_L   ', 'q*     ',            &
     861             ( 'unknown', i9 = 1, 77) /)
    860862
    861863    CHARACTER (LEN=7), DIMENSION(dots_max) :: dots_unit = &
     
    863865             'm/s    ', 'm/s    ', 's-1    ', 's-1    ', 'm      ', 'm      ', &
    864866             'm/s    ', 'K m/s  ', 'K m/s  ', 'K m/s  ', 'K      ', 'K      ', &
    865              'm2/s2  ', 'm2/s2  ', 'kg m/s ', 'm      ',                       &
    866              ( 'unknown', i9 = 1, 78 ) /)
     867             'm2/s2  ', 'm2/s2  ', 'kg m/s ', 'm      ', 'kg/kg  ',            &
     868             ( 'unknown', i9 = 1, 77 ) /)
    867869
    868870    CHARACTER (LEN=7), DIMENSION(300) ::  dopr_unit = 'unknown'
Note: See TracChangeset for help on using the changeset viewer.