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

Timestamp:

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

Author:

maronga

Message:

new utility check_namelist_files implemented

File:

• palm/trunk/SOURCE/poisfft.f90 (modified) (5 diffs)

palm/trunk/SOURCE/poisfft.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:
@@ -106 +108 @@
 
     PRIVATE
+
+#if .NOT. defined ( __check )
     PUBLIC  poisfft, poisfft_init
 
@@ -115 +119 @@
        MODULE PROCEDURE poisfft_init
     END INTERFACE poisfft_init
+#else
+    PUBLIC  poisfft_init
+
+    INTERFACE poisfft_init
+       MODULE PROCEDURE poisfft_init
+    END INTERFACE poisfft_init
+#endif
 
  CONTAINS
@@ -124 +135 @@
     END SUBROUTINE poisfft_init
 
-
+#if .NOT. defined ( __check )
     SUBROUTINE poisfft( ar, work )
 
@@ -1581 +1592 @@
 
 #endif
-
+#endif
  END MODULE poisfft_mod