Changeset 1221 for palm/trunk/SOURCE/init_3d_model.f90
- Timestamp:
- Sep 10, 2013 8:59:13 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_3d_model.f90
r1213 r1221 23 23 ! Current revisions: 24 24 ! ------------------ 25 ! 25 ! +rflags_s_inner in copyin statement, use copyin for most arrays instead of 26 ! copy 26 27 ! 27 28 ! Former revisions: … … 1499 1500 CALL disturb_field( nzb_v_inner, tend, v ) 1500 1501 n_sor = nsor_ini 1501 !$acc data copy( d, ddzu, ddzw, nzb_s_inner, nzb_u_inner, nzb_v_inner, nzb_w_inner, p, tri, tric, u, v, w, weight_pres, weight_substep, tend ) 1502 !$acc data copyin( d, ddzu, ddzw, nzb_s_inner, nzb_u_inner ) & 1503 !$acc copyin( nzb_v_inner, nzb_w_inner, p, rflags_s_inner, tend ) & 1504 !$acc copyin( weight_pres, weight_substep ) & 1505 !$acc copy( tri, tric, u, v, w ) 1502 1506 CALL pres 1503 1507 !$acc end data
Note: See TracChangeset
for help on using the changeset viewer.