Changeset 1015 for palm/trunk/SOURCE/cpu_statistics.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/cpu_statistics.f90 (modified) (4 diffs)

palm/trunk/SOURCE/cpu_statistics.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! output of handling of ghostpoint exchange
+! output of accelerator board information
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 683 2011-02-09 14:25:15Z raasch
+! output of handling of ghostpoint exchange
 !
 ! 622 2010-12-10 08:08:13Z raasch
@@ -135 +138 @@
                           numprocs * threads_per_task, pdims(1), pdims(2), &
                           threads_per_task
+       IF ( num_acc_per_node /= 0 )  WRITE ( 18, 108 )  num_acc_per_node
+       WRITE ( 18, 110 )
 #else
        WRITE ( 18, 100 )  TRIM( run_description_header ),        &
                           numprocs * threads_per_task, 1, 1, &
                           threads_per_task
+       IF ( num_acc_per_node /= 0 )  WRITE ( 18, 109 )  num_acc_per_node
+       WRITE ( 18, 110 )
 #endif
        DO
@@ -276 +283 @@
 
 100 FORMAT (A/11('-')//'CPU measures for ',I5,' PEs (',I5,'(x) * ',I5,'(y', &
-            &') tasks *',I5,' threads):'/ &
-             &'----------------------------------------------------------', &
-             &'------------'//&
-            &'place:                        mean        counts      min  ', &
-             &'     max       rms'/ &
-            &'                           sec.      %                sec. ', &
-             &'     sec.      sec.'/  &
-            &'-----------------------------------------------------------', &
-             &'-------------------')
+            &') tasks *',I5,' threads):')
 
 101 FORMAT (/'special measures:'/ &
@@ -296 +295 @@
 106 FORMAT (/'Exchange of ghostpoints via MPI_ISEND/MPI_IRECV')
 107 FORMAT (//)
+108 FORMAT ('Accelerator boards per node: ',I2)
+109 FORMAT ('Accelerator boards: ',I2)
+110 FORMAT ('----------------------------------------------------------',   &
+            &'------------'//&
+            &'place:                        mean        counts      min  ', &
+            &'     max       rms'/ &
+            &'                           sec.      %                sec. ', &
+            &'     sec.      sec.'/  &
+            &'-----------------------------------------------------------', &
+            &'-------------------')
 
  END SUBROUTINE cpu_statistics