Ignore:
Timestamp:
Sep 7, 2010 3:17:00 PM (14 years ago)
Author:
weinreis
Message:
 
File:
1 edited

Legend:

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

    r557 r559  
    5555!                                            ! defined (use zu or zw)
    5656
    57        CASE ( 'u*v*' )                      ! quantity string as given in
    58                                             ! data_output_pr_user
    59           index = pr_palm + 1
    60           dopr_index(var_count)  = index    ! quantities' user-profile-number
    61           dopr_unit(var_count)   = 'm2/s2'  ! quantity unit
    62           hom(:,2,index,:)       = SPREAD( zu, 2, statistic_regions+1 )
    63                                             ! grid on which the quantity is
    64                                             ! defined (use zu or zw)
    65                                            
    6657       CASE DEFAULT
    6758          unit = 'illegal'
Note: See TracChangeset for help on using the changeset viewer.