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/palm.f90

    r1683 r1747  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! openacc-adjustment for new surface layer parameterization
    2222!
    2323! Former revisions:
     
    145145        ONLY:  hom, rmask, weight_pres, weight_substep
    146146
     147    USE surface_layer_fluxes_mod,                                              &
     148        ONLY:  pt1, qv1, uv_total
     149
    147150#if defined( __openacc )
    148151    USE OPENACC
     
    312315    !$acc  data copyin( d, diss, e, e_p, kh, km, p, pt, pt_p, q, ql, tend, te_m, tpt_m, tu_m, tv_m, tw_m, u, u_p, v, vpt, v_p, w, w_p )          &
    313316    !$acc       copyin( tri, tric, dzu, ddzu, ddzw, dd2zu, l_grid, l_wall, ptdf_x, ptdf_y, pt_init, rdf, rdf_sc, ref_state, ug, u_init, vg, v_init, zu, zw )   &
    314     !$acc       copyin( hom, qs, qsws, qswst, rif, rif_wall, shf, ts, tswst, us, usws, uswst, vsws, vswst, z0, z0h )      &
     317    !$acc       copyin( hom, ol, pt1, qs, qsws, qswst, qv1, rif_wall, shf, ts, tswst, us, usws, uswst, uv_total, vsws, vswst, z0, z0h )      &
    315318    !$acc       copyin( fxm, fxp, fym, fyp, fwxm, fwxp, fwym, fwyp, nzb_diff_s_inner, nzb_diff_s_outer, nzb_diff_u )       &
    316319    !$acc       copyin( nzb_diff_v, nzb_s_inner, nzb_s_outer, nzb_u_inner )    &
Note: See TracChangeset for help on using the changeset viewer.