Ignore:
Timestamp:
Dec 10, 2010 11:46:30 AM (11 years ago)
Author:
heinze
Message:

Calculation of q*2 added

File:
1 edited

Legend:

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

    r623 r624  
    44! Current revisions:
    55! -----------------
    6 !
     6! Calculation of q*2 added
    77!
    88! Former revisions:
     
    373373                sums_l(k,33,tn) = sums_l(k,33,tn) + &
    374374                                  ( pt(k,j,i)-hom(k,1,4,sr) )**2 * rmask(j,i,sr)
     375
     376                IF ( humidity )  THEN
     377                   sums_l(k,70,tn) = sums_l(k,70,tn) + &
     378                                  ( q(k,j,i)-hom(k,1,41,sr) )**2 * rmask(j,i,sr)
     379                ENDIF
    375380!
    376381!--             Higher moments
Note: See TracChangeset for help on using the changeset viewer.