Changeset 48 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

Mar 6, 2007 12:28:36 PM (17 years ago)

Author:

raasch

Message:

preliminary version, several changes to be explained later

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (2 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! "by_user" allowed as initializing action
+! "by_user" allowed as initializing action, -data_output_ts
 !
 ! Former revisions:
@@ -1681 +1681 @@
     ENDIF
 
-!
-!-- Determine parameters for time series output and check whether permissible
-    i = 0
-    DO  WHILE ( data_output_ts(i+1) /= '          '  .AND.  i+1 <= 100 )
-
-       dots_n = dots_n + 1
-       i = i + 1
-!
-!--    Check whether time series is permissible and determine internal number
-       SELECT CASE ( TRIM( data_output_ts(i) ) )
-
-          CASE ( 'E' )
-             dots_index(i) = 1
-          CASE ( 'E*' )
-             dots_index(i) = 2
-          CASE ( 'dt' )
-             dots_index(i) = 3
-          CASE ( 'u*' )
-             dots_index(i) = 4
-          CASE ( 'th*' )
-             dots_index(i) = 5
-          CASE ( 'umax' )
-             dots_index(i) = 6
-          CASE ( 'vmax' )
-             dots_index(i) = 7
-          CASE ( 'wmax' )
-             dots_index(i) = 8
-          CASE ( 'div_new' )
-             dots_index(i) = 9
-          CASE ( 'div_old' )
-             dots_index(i) = 10
-          CASE ( 'z_i_wpt' )
-             dots_index(i) = 11
-          CASE ( 'z_i_pt' )
-             dots_index(i) = 12
-          CASE ( 'w*' )
-             dots_index(i) = 13
-          CASE ( 'w"pt"0' )
-             dots_index(i) = 14
-          CASE ( 'w"pt"' )
-             dots_index(i) = 15
-          CASE ( 'wpt' )
-             dots_index(i) = 16
-          CASE ( 'pt(0)' )
-             dots_index(i) = 17
-          CASE ( 'pt(zp)' )
-             dots_index(i) = 18
-          CASE ( 'splptx'  )
-             dots_index(i) = 19
-          CASE ( 'splpty'  )
-             dots_index(i) = 20
-          CASE ( 'splptz'  )
-             dots_index(i) = 21
-          CASE ( 'L'       )
-             dots_index(i) = 22
-
-          CASE DEFAULT
-             IF ( myid == 0 )  THEN
-                PRINT*, '+++ check_parameters:  unknown time series:  ', &
-                             'data_output_ts = ',&
-                        data_output_ts(i)
-             ENDIF
-             CALL local_stop
-
-       END SELECT
-
-!
-!--    Check, to which predefined coordinate system the time series belongs, and
-!--    store corresponding internal number. Furthermore determine, how many and 
-!--    which graphs are being drawn into the corresponding system
-       DO  k = 1, crmax
-          IF ( INDEX( cross_ts_profiles(k), ' ' // TRIM( data_output_ts(i) ) &
-                      // ' ' ) /=0 )  &
-          THEN
-             dots_crossindex(i) = k
-             cross_ts_number_count(k) = cross_ts_number_count(k) + 1
-             cross_ts_numbers(cross_ts_number_count(k),k) = dots_index(i)
-             EXIT
-          ENDIF
-       ENDDO
-
-    ENDDO
 
 !