Ignore:
Timestamp:
Dec 21, 2016 4:38:18 PM (4 years ago)
Author:
suehring
Message:

Bugfix in calculation of vsws

File:
1 edited

Legend:

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

    r2077 r2091  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Bugfix in calculation of vsws ( incorrect linear interpolation of us )
    2323!
    2424! Former revisions:
     
    10641064                                     + psi_m( z0(j,i) / ol_mid ) )
    10651065
    1066              vsws(j,i) = -vsws(j,i) * 0.5_wp * ( us(j,i-1) + us(j,i) )         &
     1066             vsws(j,i) = -vsws(j,i) * 0.5_wp * ( us(j-1,i) + us(j,i) )         &
    10671067                                    * rho_air_zw(k)
    10681068
Note: See TracChangeset for help on using the changeset viewer.