Ignore:
Timestamp:
Feb 8, 2016 12:25:53 PM (5 years ago)
Author:
raasch
Message:

openacc adjustments and bugfixes

File:
1 edited

Legend:

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

    r1739 r1747  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! small bugfixes for accelerator version
    2222!
    2323! Former revisions:
     
    16581658        ONLY :  average_count_pr, cloud_droplets, cloud_physics, do_sum,       &
    16591659                dt_3d, g, humidity, icloud_scheme, kappa, large_scale_forcing, &
    1660                 large_scale_subsidence, max_pr_user, message_string, ocean,    &
    1661                 passive_scalar, precipitation, simulated_time,                 &
     1660                large_scale_subsidence, max_pr_user, message_string, neutral,  &
     1661                ocean, passive_scalar, precipitation, simulated_time,          &
    16621662                use_subsidence_tendencies, use_surface_fluxes, use_top_fluxes, &
    16631663                ws_scheme_mom, ws_scheme_sca
     
    30093009                   sums_ll(k,1) = sums_ll(k,1) + 0.5_wp * w(k,j,i) * (         &
    30103010                  ( 0.25_wp * ( u(k,j,i)+u(k+1,j,i)+u(k,j,i+1)+u(k+1,j,i+1) )  &
    3011                             - 0.5_wp * ( hom(k,1,1,sr) + hom(k+1,1,1,sr) ) )**2&                                           &
     3011                            - 0.5_wp * ( hom(k,1,1,sr) + hom(k+1,1,1,sr) ) )**2&
    30123012                + ( 0.25_wp * ( v(k,j,i)+v(k+1,j,i)+v(k,j+1,i)+v(k+1,j+1,i) )  &
    3013                             - 0.5_wp * ( hom(k,1,2,sr) + hom(k+1,1,2,sr) ) )**2&                                          &
     3013                            - 0.5_wp * ( hom(k,1,2,sr) + hom(k+1,1,2,sr) ) )**2&
    30143014                + w(k,j,i)**2                                        )
    30153015
Note: See TracChangeset for help on using the changeset viewer.