Ignore:
Timestamp:
Oct 29, 2013 1:21:31 PM (10 years ago)
Author:
heinze
Message:

Undoing commit 1239

File:
1 edited

Legend:

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

    r1239 r1240  
    2121! Current revisions:
    2222! -----------------
    23 ! Output of ug and vg
     23!
    2424!
    2525! Former revisions:
     
    563563          ENDDO
    564564       ENDIF
    565 
    566565!
    567566!--    Horizontally averaged profiles of the vertical fluxes
     
    887886
    888887       ENDIF
     888
    889889
    890890!
     
    11561156       hom(:,1,76,sr) = sums(:,76)     ! prr (precipitation rate)
    11571157                                       ! 77 is initial density profile
    1158        hom(:,1,78,sr) = ug             ! ug
    1159        hom(:,1,79,sr) = vg             ! vg
    11601158
    11611159       hom(:,1,pr_palm-1,sr) = sums(:,pr_palm-1)
     
    27762774       hom(:,1,76,sr) = sums(:,76)     ! prr (precipitation rate)
    27772775                                       ! 77 is initial density profile
    2778        hom(:,1,78,sr) = ug             ! ug
    2779        hom(:,1,79,sr) = vg             ! vg
    27802776
    27812777       hom(:,1,pr_palm-1,sr) = sums(:,pr_palm-1)
Note: See TracChangeset for help on using the changeset viewer.