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

Timestamp:

May 30, 2013 11:27:45 AM (11 years ago)

Author:

raasch

Message:

New:
---

use_reference-case activated in accelerator version. (buoyancy, diffusion_e)
new option -e which defines the execution command to be used to run PALM,
compiler options for pgi/openacc added (palm_simple_run)
parameter sets for openACC benchmarks added (trunk/EXAMPLES/benchmark_acc)

Changed:

---

split of prognostic_equations deactivated (time_integration)

Errors:

---

bugfix: diss array is allocated with full size if accelerator boards are used (init_3d_model)

File:

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

palm/trunk/SOURCE/time_integration.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! split of prognostic_equations deactivated (comment lines)
 !
 ! Former revisions:
@@ -245 +245 @@
              CALL prognostic_equations_vector
           ELSEIF ( loop_optimization == 'acc' )  THEN
-!             i_left  = nxl;         i_right = nxr
+             i_left  = nxl;         i_right = nxr
+             j_south = nys;         j_north = nyn
+             CALL prognostic_equations_acc
+
+!             i_left  = nxl;         i_right = nxl+nbgp-1
 !             j_south = nys;         j_north = nyn
 !             CALL prognostic_equations_acc
-
-             i_left  = nxl;         i_right = nxl+nbgp-1
-             j_south = nys;         j_north = nyn
-             CALL prognostic_equations_acc
-             i_left  = nxr-nbgp+1;  i_right = nxr
-             j_south = nys;         j_north = nyn
-             CALL prognostic_equations_acc
+!             i_left  = nxr-nbgp+1;  i_right = nxr
+!             j_south = nys;         j_north = nyn
+!             CALL prognostic_equations_acc
 
 !
@@ -310 +310 @@
              ENDIF
 
-             i_left  = nxl+nbgp;    i_right = nxr-nbgp
-             j_south = nys;         j_north = nys+nbgp-1
-             CALL prognostic_equations_acc
-             i_left  = nxl+nbgp;    i_right = nxr-nbgp
-             j_south = nyn-nbgp+1;  j_north = nyn
-             CALL prognostic_equations_acc
+!             i_left  = nxl+nbgp;    i_right = nxr-nbgp
+!             j_south = nys;         j_north = nys+nbgp-1
+!             CALL prognostic_equations_acc
+!             i_left  = nxl+nbgp;    i_right = nxr-nbgp
+!             j_south = nyn-nbgp+1;  j_north = nyn
+!             CALL prognostic_equations_acc
 
              IF ( background_communication )  THEN
@@ -374 +374 @@
              ENDIF
 
-             i_left  = nxl+nbgp;    i_right = nxr-nbgp
-             j_south = nys+nbgp;    j_north = nyn-nbgp
-             CALL prognostic_equations_acc
+!             i_left  = nxl+nbgp;    i_right = nxr-nbgp
+!             j_south = nys+nbgp;    j_north = nyn-nbgp
+!             CALL prognostic_equations_acc
 
              IF ( background_communication )  THEN