Changeset 1113 for palm/trunk/SOURCE/init_3d_model.f90

Timestamp:

Mar 10, 2013 2:48:14 AM (11 years ago)

Author:

raasch

Message:

GPU porting of boundary conditions and routine pres; index bug removec from radiation boundary condition

File:

• palm/trunk/SOURCE/init_3d_model.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_3d_model.f90

@@ -23 +23 @@
 ! Current revisions:
 ! ------------------
-! 
+! openACC directive modified
 !
 ! Former revisions:
@@ -1435 +1435 @@
        CALL disturb_field( nzb_v_inner, tend, v )
        n_sor = nsor_ini
-       !$acc data copy( d, ddzw, nzb_s_inner, tric, u, v, w, tend )
+       !$acc data copy( d, ddzu, ddzw, nzb_s_inner, nzb_u_inner, nzb_v_inner, nzb_w_inner, p, tric, u, v, w, weight_pres, weight_substep, tend )
        CALL pres
        !$acc end data