Changeset 1171 for palm/trunk/SOURCE/init_3d_model.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/init_3d_model.f90 (modified) (3 diffs)

palm/trunk/SOURCE/init_3d_model.f90

@@ -23 +23 @@
 ! Current revisions:
 ! ------------------
-!
+! diss array is allocated with full size if accelerator boards are used
 !
 ! Former revisions:
@@ -34 +34 @@
 ! 1153 2013-05-10 14:33:08Z raasch
 ! diss array is allocated with dummy elements even if it is not needed
-! (required by PGI 12.3 / CUDA 5.0)
+! (required by PGI 13.4 / CUDA 5.0)
 !
 ! 1115 2013-03-26 18:16:16Z hoffmann
@@ -507 +507 @@
 !-- 3D-array for storing the dissipation, needed for calculating the sgs
 !-- particle velocities
-    IF ( use_sgs_for_particles  .OR.  wang_kernel  .OR.  turbulence )  THEN
+    IF ( use_sgs_for_particles  .OR.  wang_kernel  .OR.  turbulence  .OR.  &
+         num_acc_per_node > 0 )  THEN
+       print*, '*** allocating diss'
        ALLOCATE( diss(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
-    ELSE
-       ALLOCATE( diss(2,2,2) )
     ENDIF