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

Timestamp:

May 10, 2013 2:33:08 PM (11 years ago)

Author:

raasch

Message:

code adjustment of accelerator version for PGI 12.3 / CUDA 5.0

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -23 +23 @@
 ! Current revisions:
 ! ------------------
-!
+! diss array is allocated with dummy elements even if it is not needed
+! (required by PGI 12.3 / CUDA 5.0)
 !
 ! Former revisions:
@@ -501 +502 @@
 !-- particle velocities
     IF ( use_sgs_for_particles  .OR.  wang_kernel  .OR.  turbulence )  THEN
-       ALLOCATE ( diss(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
+       ALLOCATE( diss(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
+    ELSE
+       ALLOCATE( diss(2,2,2) )
     ENDIF