Changeset 1654 for palm/trunk


Ignore:
Timestamp:
Sep 17, 2015 9:20:17 AM (9 years ago)
Author:
raasch
Message:

FORTRAN bugfix of r1652

File:
1 edited

Legend:

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

    r1653 r1654  
    2121! Current revisions:
    2222! -----------------
    23 !
     23! FORTRAN bugfix of r1652
    2424!
    2525! Former revisions:
     
    999999                            - 0.5_wp * ( hom(k,1,1,sr) + hom(k+1,1,1,sr) ) )**2&
    10001000                + ( 0.25_wp * ( v(k,j,i)+v(k+1,j,i)+v(k,j+1,i)+v(k+1,j+1,i) )  &
    1001                             - 0.5_wp * ( hom(k,1,2,sr) + hom(k+1,1,2,sr) ) )**2&                                           &
     1001                            - 0.5_wp * ( hom(k,1,2,sr) + hom(k+1,1,2,sr) ) )**2&
    10021002                + w(k,j,i)**2                                        )
    10031003
Note: See TracChangeset for help on using the changeset viewer.