Changeset 1808 for palm/trunk/SOURCE/read_var_list.f90

Timestamp:

Apr 5, 2016 7:44:00 PM (8 years ago)

Author:

raasch

Message:

preprocessor directives using machine dependent flags (lc, ibm, etc.) mostly removed from the code

File:

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

palm/trunk/SOURCE/read_var_list.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-! 
+! test output removed
 !
 ! Former revisions:
@@ -739 +739 @@
 !
 !--    Read next string
-       WRITE(9,*) 'var1 ', variable_chr
-       CALL local_flush(9)
        READ ( 13 )  variable_chr
-       WRITE(9,*) 'var2 ', variable_chr
-       CALL local_flush(9)
 
     ENDDO
@@ -800 +796 @@
     CALL check_open( 13 )
 
-    WRITE (9,*) 'rpovl: after check open 13'
-    CALL local_flush( 9 )
     READ ( 13 )  version_on_file
 
@@ -887 +881 @@
 !
 !-- Now read and check some control parameters and skip the rest
-    WRITE (9,*) 'wpovl: begin reading variables'
-    CALL local_flush( 9 )
     READ ( 13 )  variable_chr
 
@@ -988 +980 @@
 
 
-    WRITE (9,*) 'skipvl #1'
-    CALL local_flush( 9 )
     READ ( 13 )  version_on_file
 
-    WRITE (9,*) 'skipvl before variable_chr'
-    CALL local_flush( 9 )
-    READ ( 13 )  variable_chr
-    WRITE (9,*) 'skipvl after variable_chr'
-    CALL local_flush( 9 )
+    READ ( 13 )  variable_chr
 
     DO  WHILE ( TRIM( variable_chr ) /= '*** end ***' )
 
-    WRITE (9,*) 'skipvl chr = ', variable_chr
-    CALL local_flush( 9 )
        READ ( 13 )  cdum
        READ ( 13 )  variable_chr
 
     ENDDO
-    WRITE (9,*) 'skipvl last'
-    CALL local_flush( 9 )