Changeset 807 for palm/trunk/SOURCE/poisfft_hybrid.f90

Timestamp:

Jan 25, 2012 11:53:51 AM (13 years ago)

Author:

maronga

Message:

new utility check_namelist_files implemented

File:

• palm/trunk/SOURCE/poisfft_hybrid.f90 (modified) (10 diffs)

palm/trunk/SOURCE/poisfft_hybrid.f90

@@ -4 +4 @@
 ! Current revisions: 
 ! ----------------- 
+! New cpp directive "__check" implemented which is used by check_namelist_files
+! (most of the code is unneeded by check_namelist_files).
 !
 ! Former revisions: 
@@ -13 +15 @@
 !
 ! 415 2009-12-15 10:26:23Z raasch
-! Dimension of array stat in cascade change to prevent type problems with
+! Dimension of array stat in cascade change to prevent type problems with___
 ! mpi2 libraries
 !
@@ -60 +62 @@
     IMPLICIT NONE
 
-    PRIVATE
-    PUBLIC poisfft_hybrid, poisfft_hybrid_ini
-
     INTEGER, PARAMETER ::  switch_per_lpar = 2
 
@@ -84 +83 @@
                      nodes,               & ! number of nodes
                      tasks_per_logical_node = -1    ! default no cluster
-                      
+
+
+    PRIVATE
+
+
+#if .NOT. defined ( __check )
+    PUBLIC poisfft_hybrid, poisfft_hybrid_ini
+
 
 !
@@ -117 +123 @@
        MODULE PROCEDURE cascade
     END INTERFACE cascade
+#else
+    PUBLIC poisfft_hybrid_ini
+
+!
+!-- Public interfaces
+    INTERFACE poisfft_hybrid_ini
+       MODULE PROCEDURE poisfft_hybrid_ini
+    END INTERFACE poisfft_hybrid_ini
+#endif
 
  CONTAINS
  
- 
+
     SUBROUTINE poisfft_hybrid_ini
 
@@ -153 +168 @@
        nwords = ( nxr_p-nxl_p+1 ) * nz * ( nyn_p-nys_p+1 )
 
-#if defined( __KKMP )
+#if defined( __KKMP ) .AND. .NOT. defined ( __check )
        CALL LOCAL_GETENV( 'OMP_NUM_THREADS', 15, cdummy, idummy )
        READ ( cdummy, '(I8)' )  n_omp_threads
@@ -209 +224 @@
        IF ( tasks_per_logical_node >= 2 )  THEN
 
-#if defined( __parallel )
+#if defined( __parallel ) .AND. .NOT. defined ( __check )
           nodes   = ( numprocs + tasks_per_logical_node - 1 ) / &
                     tasks_per_logical_node
@@ -231 +246 @@
 !          write(0,*) 'who am i',myid,me,me_node,me_task,nodes,&
 !                     tasks_per_logical_node
-#else
+#elif .NOT. defined( __parallel ) 
           message_string = 'parallel environment (MPI) required'
           CALL message( 'poisfft_hybrid_ini', 'PA0282', 1, 2, 0, 6, 0 )
@@ -239 +254 @@
     END SUBROUTINE poisfft_hybrid_ini
 
-
+#if .NOT. defined ( __check )
     SUBROUTINE poisfft_hybrid( ar )
 
@@ -1063 +1078 @@
 
     END SUBROUTINE cascade
-
+#endif
  END MODULE poisfft_hybrid_mod