Changeset 4522 for palm/trunk/SOURCE/user_init_flight_mod.f90

Timestamp:

May 6, 2020 2:17:05 PM (4 years ago)

Author:

suehring

Message:

user_init_flight modularized and renamed to user_init_flight_mod

File:

• palm/trunk/SOURCE/user_init_flight_mod.f90 (moved) (moved from palm/trunk/SOURCE/user_init_flight.f90) (5 diffs)

palm/trunk/SOURCE/user_init_flight_mod.f90

@@ -1 @@
-!> @file user_init_flight.f90
+!> @file user_init_flight_mod.f90
 !--------------------------------------------------------------------------------------------------!
 ! This file is part of the PALM model system.
@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! * Modularize user_init_flight in order to provide an explicit interface.
+! * routine renamed to user_init_flight_mod
+! 
+! 4498 2020-04-15 14:26:31Z raasch
 ! file re-formatted to follow the PALM coding standard
 !
@@ -40 +44 @@
 ! Initial revision
 !
+!
 ! Description:
 ! ------------
-!> Execution of user-defined initialization for flight measurements.
+!> Initialization of user-defined flight measurements.
+!>
+!> @todo Integrate into user_module when circular dependencies has been vanished.
 !--------------------------------------------------------------------------------------------------!
- SUBROUTINE user_init_flight( init, k, id, label_leg )
-
+ MODULE user_init_flight_mod
 
     USE control_parameters
@@ -60 +66 @@
 
     IMPLICIT NONE
+
+    PUBLIC user_init_flight
+
+    INTERFACE user_init_flight
+       MODULE PROCEDURE user_init_flight
+    END INTERFACE user_init_flight
+
+    CONTAINS
+
+! Description:
+! ------------
+!> Execution of user-defined initialization for flight measurements.
+!--------------------------------------------------------------------------------------------------!
+ SUBROUTINE user_init_flight( init, k, id, label_leg )
 
     CHARACTER(LEN=10), OPTIONAL ::  label_leg     !< label of the respective leg
@@ -111 +131 @@
 
  END SUBROUTINE user_init_flight
+ 
+ END MODULE user_init_flight_mod