Changeset 2039 for palm/trunk/SOURCE/check_open.f90

Timestamp:

Oct 26, 2016 4:53:23 PM (7 years ago)

Author:

gronemeier

Message:

Increased the number of possible statistic regions to 99

File:

• palm/trunk/SOURCE/check_open.f90 (modified) (3 diffs)

palm/trunk/SOURCE/check_open.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Removed open of file 'PLOTTS_DATA' ( CASE(50:59) ) as it is no longer needed
 ! 
 ! Former revisions:
@@ -163 +163 @@
         ONLY:  cross_ts_numbers, cross_ts_number_count
 
-    USE statistics,                                                            &
-        ONLY:  region, statistic_regions
-
 
     IMPLICIT NONE
@@ -524 +521 @@
           ENDIF
 
-       CASE ( 50:59 )
-
-          IF ( statistic_regions == 0  .AND.  file_id == 50 )  THEN
-             suffix = ''
-          ELSE
-             WRITE ( suffix, '(''_'',I1)' )  file_id - 50
-          ENDIF
-          OPEN ( file_id, FILE='PLOTTS_DATA'//TRIM( coupling_char )//          &
-                               TRIM( suffix ),                                 &
-                          FORM='FORMATTED', RECL=496 )
-!
-!--       Write PROFIL parameter file for output of time series
-!--       NOTE: To be on the safe side, this output is done at the beginning of
-!--             the model run (in case of collapse) and it is repeated in
-!--             close_file, then, however, with value ranges for the coordinate
-!--             systems
-!
-!--       Firstly determine the number of the coordinate systems to be drawn
-          cranz = 0
-          DO  j = 1, 10
-             IF ( cross_ts_number_count(j) /= 0 )  cranz = cranz+1
-          ENDDO
-          rtext = '\1.0 ' // TRIM( run_description_header ) // '    ' //       &
-                  TRIM( region( file_id - 50 ) )
-!
-!--       Write RAHMEN parameter
-          OPEN ( 90, FILE='PLOTTS_PAR'//TRIM( coupling_char )//                &
-                           TRIM( suffix ),                                     &
-                     FORM='FORMATTED', DELIM='APOSTROPHE' )
-          WRITE ( 90, RAHMEN )
-!
-!--       Determine and write CROSS parameters for the individual coordinate 
-!--       systems
-          DO  j = 1, 10
-             k = cross_ts_number_count(j)
-             IF ( k /= 0 )  THEN
-!
-!--             Store curve numbers, colours and line style
-                klist(1:k) = cross_ts_numbers(1:k,j)
-                klist(k+1:10) = 999999
-!
-!--             Write CROSS parameter
-                WRITE ( 90, CROSS )
-
-             ENDIF
-          ENDDO
-
-          CLOSE ( 90 )
-!
-!--       Write all labels at the top of the data file, but only during the 
-!--       first run of a sequence of jobs. The following jobs copy the time
-!--       series data to the bottom of that file.
-          IF ( runnr == 0 )  THEN
-             WRITE ( file_id, 5000 )  TRIM( run_description_header ) //        &
-                                      '    ' // TRIM( region( file_id - 50 ) )
-          ENDIF
-
-
        CASE ( 80 )