Changeset 2932 for palm/trunk/SOURCE/virtual_flight_mod.f90

Timestamp:

Mar 26, 2018 9:39:22 AM (6 years ago)

Author:

maronga

Message:

renamed all Fortran NAMELISTS

File:

• palm/trunk/SOURCE/virtual_flight_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/virtual_flight_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! renamed flight_par to virtual_flight_parameters
+! 
+! 2894 2018-03-15 09:17:58Z Giersch
 ! variable named found has been introduced for checking if restart data was 
 ! found, reading of restart strings has been moved completely to 
@@ -218 +221 @@
 
        USE control_parameters,                                                 &
-           ONLY:  initializing_actions  
+           ONLY:  initializing_actions, message_string  
       
        IMPLICIT NONE
@@ -227 +230 @@
                               flight_level, max_elev_change, rate_of_climb,    &
                               speed_agl, x_end, x_start, y_end, y_start
-                              
+  
+
+       NAMELIST /virtual_flight_parameters/                                    &
+                              flight_angle, flight_end, flight_begin, leg_mode,&
+                              flight_level, max_elev_change, rate_of_climb,    &
+                              speed_agl, x_end, x_start, y_end, y_start
 !
 !--    Try to find the namelist flight_par
        REWIND ( 11 )
        line = ' '
-       DO   WHILE ( INDEX( line, '&flight_par' ) == 0 )
+       DO   WHILE ( INDEX( line, '&virtual_flight_parameters' ) == 0 )
           READ ( 11, '(A)', END=10 )  line
        ENDDO
@@ -239 +247 @@
 !
 !--    Read namelist
-       READ ( 11, flight_par )
+       READ ( 11, virtual_flight_parameters )
 !
 !--    Set switch that virtual flights shall be carried out
        virtual_flight = .TRUE.
 
-
- 10    CONTINUE
+       GOTO 12
+!
+!--    Try to find the old namelist
+ 10    REWIND ( 11 )
+       line = ' '
+       DO   WHILE ( INDEX( line, '&flight_par' ) == 0 )
+          READ ( 11, '(A)', END=12 )  line
+       ENDDO
+       BACKSPACE ( 11 )
+
+!
+!--    Read namelist
+       READ ( 11, flight_par )
+       
+       message_string = 'namelist flight_par is deprecated and will be ' // &
+                     'removed in near future. Please &use namelist ' //     &
+                     'virtual_flight_parameters instead' 
+       CALL message( 'flight_parin', 'PA0487', 0, 1, 0, 6, 0 )     
+!
+!--    Set switch that virtual flights shall be carried out
+       virtual_flight = .TRUE.
+
+ 12    CONTINUE
 
     END SUBROUTINE flight_parin