Changeset 57 for palm/trunk/SOURCE/palm.f90

Timestamp:

Mar 9, 2007 12:05:41 PM (17 years ago)

Author:

raasch

Message:

preliminary update of further changes, advec_particles is not running!

File:

• palm/trunk/SOURCE/palm.f90 (modified) (4 diffs)

palm/trunk/SOURCE/palm.f90

@@ -1 @@
-#if defined( __vtk )
- SUBROUTINE palm
-#else
  PROGRAM palm
-#endif
 
 !------------------------------------------------------------------------------!
 ! Actual revisions:
 ! -----------------
-! TEST: open(9)
+! __vtk directives removed, open unit 9 for debug output
 !
 ! Former revisions:
@@ -99 +95 @@
 
 !
+!-- Open a file for debug output
+    OPEN( 9, FILE='DEBUG'//myid_char, FORM='FORMATTED' )
+
+!
 !-- Generate grid parameters
     CALL init_grid
@@ -106 +106 @@
     CALL check_parameters
 
-    OPEN( 9, FILE='DEBUG'//myid_char, FORM='FORMATTED' )
 !
 !-- Initialize all necessary variables
@@ -169 +168 @@
 #endif
 
-#if defined( __vtk )
- END SUBROUTINE palm
-#else
  END PROGRAM palm
-#endif
 
-