Changeset 1808 for palm/trunk/SOURCE/read_3d_binary.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_3d_binary.f90 (modified) (6 diffs)

palm/trunk/SOURCE/read_3d_binary.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! test output removed
 ! 
 ! Former revisions:
@@ -288 +288 @@
           
        IF ( j > 0 )  overlap_count(files_to_be_opened) = j
-
-!
-!--    Test output, to be removed later
-       IF ( j > 0 )  THEN
-          WRITE (9,*) '*** reading from file: ', i, j, ' times'
-          WRITE (9,*) '    nxl = ', nxl, ' nxr = ', nxr, ' nys = ', & 
-                                    nys, ' nyn = ', nyn
-          WRITE (9,*) ' '
-          DO  k = 1, j
-             WRITE (9,*) 'k = ', k
-             WRITE (9,'(6(A,I4))') 'nxlfa = ', nxlfa(files_to_be_opened,k),&
-                     ' nxrfa = ', nxrfa(files_to_be_opened,k), &
-                     ' offset_xa = ', offset_xa(files_to_be_opened,k), &
-                     ' nysfa = ', nysfa(files_to_be_opened,k), &
-                     ' nynfa = ', nynfa(files_to_be_opened,k), &
-                     ' offset_ya = ', offset_ya(files_to_be_opened,k)
-          ENDDO
-          CALL local_flush( 9 )
-       ENDIF
-
           
     ENDDO
@@ -314 +294 @@
 !-- Save the id-string of the current process, since myid_char may now be used
 !-- to open files created by PEs with other id.
-          myid_char_save = myid_char
-
-!
-!-- Test output (remove later)
-         
-    DO i = 1, numprocs_previous_run
-       WRITE (9,*) 'i=',i-1, ' ibs= ',hor_index_bounds_previous_run(1:4,i-1)
-    ENDDO
-    CALL local_flush( 9 )
+    myid_char_save = myid_char
 
     IF ( files_to_be_opened /= 1  .OR.  numprocs /= numprocs_previous_run ) &
@@ -340 +312 @@
 !--    Set the filename (underscore followed by four digit processor id)
        WRITE (myid_char,'(''_'',I6.6)')  j
-       WRITE (9,*) 'myid=',myid,' opening file "',myid_char,'"'
-       CALL local_flush( 9 )
 
 !
@@ -348 +318 @@
 !--    first.
        CALL check_open( 13 )
-       WRITE (9,*) 'before skipping'
-       CALL local_flush( 9 )
        IF ( j == 0 )  CALL skip_var_list
-       WRITE (9,*) 'skipping done'
-       CALL local_flush( 9 )
 
 !
@@ -468 +434 @@
              nync = nynfa(i,k) + offset_ya(i,k)
 
-
-             WRITE (9,*) 'var = ', field_chr
-             CALL local_flush( 9 )
 
              SELECT CASE ( TRIM( field_chr ) )