Changeset 1015 for palm/trunk/SOURCE/time_integration.f90

Timestamp:

Sep 27, 2012 9:23:24 AM (12 years ago)

Author:

raasch

Message:

Starting with changes required for GPU optimization. OpenACC statements for using NVIDIA GPUs added.
Adjustment of mixing length to the Prandtl mixing length at first grid point above ground removed.
mask array is set zero for ghost boundaries

File:

• palm/trunk/SOURCE/time_integration.f90 (modified) (5 diffs)

palm/trunk/SOURCE/time_integration.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-!
+! +call of prognostic_equations_acc
 !
 ! Former revisions:
@@ -176 +176 @@
           IF ( loop_optimization == 'vector' )  THEN
              CALL prognostic_equations_vector
+          ELSEIF ( loop_optimization == 'acc' )  THEN
+             CALL prognostic_equations_acc
           ELSE
              IF ( scalar_advec == 'bc-scheme' )  THEN
@@ -284 +286 @@
              CALL pres
           ENDIF
+!
+!--       Update device memory for calculating diffusion quantities and for next
+!--       timestep
+          !$acc update device( e, pt, u, v, w )
+          !$acc update device( q )  if ( allocated( q ) )
 
 !
 !--       If required, compute virtuell potential temperature
-          IF ( humidity ) CALL compute_vpt
+          IF ( humidity )  THEN
+             CALL compute_vpt
+             !$acc update device( vpt )
+          ENDIF
 
 !
 !--       If required, compute liquid water content
-          IF ( cloud_physics ) CALL calc_liquid_water_content
+          IF ( cloud_physics )  THEN
+             CALL calc_liquid_water_content
+             !$acc update device( ql )
+          ENDIF
 
 !
@@ -303 +316 @@
                 CALL prandtl_fluxes
                 CALL cpu_log( log_point(19), 'prandtl_fluxes', 'stop' )
+!
+!++             Statistics still require updates on host
+                !$acc update host( qs, qsws, rif, shf, ts )
              ENDIF
 
@@ -318 +334 @@
              ENDIF
              CALL cpu_log( log_point(17), 'diffusivities', 'stop' )
+!
+!++          Statistics still require update of diffusivities on host
+             !$acc update host( kh, km )
 
           ENDIF