Changeset 1799


Ignore:
Timestamp:
Apr 5, 2016 8:35:55 AM (6 years ago)
Author:
gronemeier
Message:

some bugfixes

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r1763 r1799  
    1919! Current revisions:
    2020! ------------------
    21 !
     21! Bugfix: excluded third dimension from horizontal volume flow calculation
    2222!
    2323! Former revisions:
     
    682682#endif   
    683683
    684        volume_flow_offset = ( volume_flow_initial - volume_flow ) / &
    685                             volume_flow_area
     684       volume_flow_offset(1:2) = ( volume_flow_initial(1:2) - volume_flow(1:2) ) / &
     685                            volume_flow_area(1:2)
    686686
    687687       !$OMP PARALLEL PRIVATE (i,j,k)
  • palm/trunk/SOURCE/user_init.f90

    r1784 r1799  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Bugfix: added dots_num to variable list
    2222!
    2323! Former revisions:
     
    5959   
    6060    USE netcdf_interface,                                                      &
    61         ONLY: dots_label, dots_unit
     61        ONLY: dots_label, dots_unit, dots_num
    6262   
    6363    USE pegrid
Note: See TracChangeset for help on using the changeset viewer.