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

Timestamp:

Jan 17, 2017 4:38:49 PM (8 years ago)

Author:

raasch

Message:

all OpenACC directives and related parts removed from the code

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! OpenACC directives removed
 ! 
 ! Former revisions:
@@ -800 +800 @@
 !-- 3D-array for storing the dissipation, needed for calculating the sgs
 !-- particle velocities
-    IF ( use_sgs_for_particles  .OR.  wang_kernel  .OR.  collision_turbulence  &
-         .OR.  num_acc_per_node > 0 )  THEN
+    IF ( use_sgs_for_particles  .OR.  wang_kernel  .OR.  collision_turbulence )&
+    THEN
        ALLOCATE( diss(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     ENDIF
@@ -1920 +1920 @@
        CALL location_message( 'calling pressure solver', .FALSE. )
        n_sor = nsor_ini
-       !$acc data copyin( d, ddzu, ddzw, nzb_s_inner, nzb_u_inner )            &
-       !$acc      copyin( nzb_v_inner, nzb_w_inner, p, rflags_s_inner, tend )  &
-       !$acc      copyin( weight_pres, weight_substep )                        &
-       !$acc      copy( tri, tric, u, v, w )
        CALL pres
-       !$acc end data
        n_sor = nsor
        CALL location_message( 'finished', .TRUE. )