Changeset 1747 for palm/trunk/SOURCE/palm.f90
- Timestamp:
- Feb 8, 2016 12:25:53 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/palm.f90
r1683 r1747 19 19 ! Current revisions: 20 20 ! ----------------- 21 ! 21 ! openacc-adjustment for new surface layer parameterization 22 22 ! 23 23 ! Former revisions: … … 145 145 ONLY: hom, rmask, weight_pres, weight_substep 146 146 147 USE surface_layer_fluxes_mod, & 148 ONLY: pt1, qv1, uv_total 149 147 150 #if defined( __openacc ) 148 151 USE OPENACC … … 312 315 !$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 ) & 313 316 !$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 ) & 315 318 !$acc copyin( fxm, fxp, fym, fyp, fwxm, fwxp, fwym, fwyp, nzb_diff_s_inner, nzb_diff_s_outer, nzb_diff_u ) & 316 319 !$acc copyin( nzb_diff_v, nzb_s_inner, nzb_s_outer, nzb_u_inner ) &
Note: See TracChangeset
for help on using the changeset viewer.