Ignore:
Timestamp:
Oct 30, 2013 11:36:58 AM (8 years ago)
Author:
heinze
Message:

Nudging and large scale forcing from external file implemented

File:
1 edited

Legend:

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

    r1240 r1241  
    2121! Current revisions:
    2222! -----------------
    23 !
     23! Output of ug and vg
    2424!
    2525! Former revisions:
     
    563563          ENDDO
    564564       ENDIF
     565
    565566!
    566567!--    Horizontally averaged profiles of the vertical fluxes
     
    886887
    887888       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
    11581160
    11591161       hom(:,1,pr_palm-1,sr) = sums(:,pr_palm-1)
     
    27742776       hom(:,1,76,sr) = sums(:,76)     ! prr (precipitation rate)
    27752777                                       ! 77 is initial density profile
     2778       hom(:,1,78,sr) = ug             ! ug
     2779       hom(:,1,79,sr) = vg             ! vg
    27762780
    27772781       hom(:,1,pr_palm-1,sr) = sums(:,pr_palm-1)
Note: See TracChangeset for help on using the changeset viewer.