Ignore:
Timestamp:
Dec 18, 2008 7:00:36 AM (13 years ago)
Author:
raasch
Message:

some small bugfixes in user_module, user_read_restart_data, read_3d_binary, flow_statistics and mrun

File:
1 edited

Legend:

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

    r198 r220  
    10081008       ts_value(19,sr) = hom(nzb+1,1,pr_palm,sr)    ! u'w'    at k=0
    10091009       ts_value(20,sr) = hom(nzb+2,1,pr_palm,sr)    ! v'w'    at k=0
    1010        ts_value(21,sr) = hom(nzb+12,1,pr_palm,sr)   ! w'q'    at k=0
     1010       ts_value(21,sr) = hom(nzb+12,1,pr_palm,sr)   ! q*
    10111011
    10121012       IF ( ts_value(5,sr) /= 0.0 )  THEN
Note: See TracChangeset for help on using the changeset viewer.