Ignore:
Timestamp:
Mar 9, 2007 12:05:41 PM (16 years ago)
Author:
raasch
Message:

preliminary update of further changes, advec_particles is not running!

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/palm.f90

    r4 r57  
    1 #if defined( __vtk )
    2  SUBROUTINE palm
    3 #else
    41 PROGRAM palm
    5 #endif
    62
    73!------------------------------------------------------------------------------!
    84! Actual revisions:
    95! -----------------
    10 ! TEST: open(9)
     6! __vtk directives removed, open unit 9 for debug output
    117!
    128! Former revisions:
     
    9995
    10096!
     97!-- Open a file for debug output
     98    OPEN( 9, FILE='DEBUG'//myid_char, FORM='FORMATTED' )
     99
     100!
    101101!-- Generate grid parameters
    102102    CALL init_grid
     
    106106    CALL check_parameters
    107107
    108     OPEN( 9, FILE='DEBUG'//myid_char, FORM='FORMATTED' )
    109108!
    110109!-- Initialize all necessary variables
     
    169168#endif
    170169
    171 #if defined( __vtk )
    172  END SUBROUTINE palm
    173 #else
    174170 END PROGRAM palm
    175 #endif
    176171
    177 
Note: See TracChangeset for help on using the changeset viewer.