Changeset 4522 for palm


Ignore:
Timestamp:
May 6, 2020 2:17:05 PM (7 months ago)
Author:
suehring
Message:

user_init_flight modularized and renamed to user_init_flight_mod

Location:
palm/trunk/SOURCE
Files:
2 edited
1 moved

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/Makefile

    r4518 r4522  
    2525# -----------------
    2626# $Id$
     27# routine user_init_flight renamed to user_init_flight_mod
     28#
     29# 4518 2020-05-04 15:44:28Z suehring
    2730# Remove dependency of read_restart_data_mod on diagnostic_output_quantities_mod
    2831#
     
    306309        user_flight.f90\
    307310        user_init_3d_model.f90 \
    308         user_init_flight.f90 \
     311        user_init_flight_mod.f90 \
    309312        user_init_grid.f90 \
    310313        user_init_land_surface.f90 \
     
    12921295        surface_mod.o \
    12931296        user_module.o
    1294 user_init_flight.o: \
     1297user_init_flight_mod.o: \
    12951298        mod_kinds.o \
    12961299        modules.o \
     
    13581361        restart_data_mpi_io_mod.o \
    13591362        user_flight.o \
    1360         user_init_flight.o
     1363        user_init_flight_mod.o
    13611364virtual_measurement_mod.o: \
    13621365        basic_constants_and_equations_mod.o \
  • palm/trunk/SOURCE/user_init_flight_mod.f90

    r4521 r4522  
    1 !> @file user_init_flight.f90
     1!> @file user_init_flight_mod.f90
    22!--------------------------------------------------------------------------------------------------!
    33! This file is part of the PALM model system.
     
    2525! -----------------
    2626! $Id$
     27! * Modularize user_init_flight in order to provide an explicit interface.
     28! * routine renamed to user_init_flight_mod
     29!
     30! 4498 2020-04-15 14:26:31Z raasch
    2731! file re-formatted to follow the PALM coding standard
    2832!
     
    4044! Initial revision
    4145!
     46!
    4247! Description:
    4348! ------------
    44 !> Execution of user-defined initialization for flight measurements.
     49!> Initialization of user-defined flight measurements.
     50!>
     51!> @todo Integrate into user_module when circular dependencies has been vanished.
    4552!--------------------------------------------------------------------------------------------------!
    46  SUBROUTINE user_init_flight( init, k, id, label_leg )
    47 
     53 MODULE user_init_flight_mod
    4854
    4955    USE control_parameters
     
    6066
    6167    IMPLICIT NONE
     68
     69    PUBLIC user_init_flight
     70
     71    INTERFACE user_init_flight
     72       MODULE PROCEDURE user_init_flight
     73    END INTERFACE user_init_flight
     74
     75    CONTAINS
     76
     77! Description:
     78! ------------
     79!> Execution of user-defined initialization for flight measurements.
     80!--------------------------------------------------------------------------------------------------!
     81 SUBROUTINE user_init_flight( init, k, id, label_leg )
    6282
    6383    CHARACTER(LEN=10), OPTIONAL ::  label_leg     !< label of the respective leg
     
    111131
    112132 END SUBROUTINE user_init_flight
     133 
     134 END MODULE user_init_flight_mod
    113135
  • palm/trunk/SOURCE/virtual_flight_mod.f90

    r4497 r4522  
    2525! -----------------
    2626! $Id$
     27! Modularize user_init_flight in order to provide an explicit interface.
     28!
     29! 4497 2020-04-15 10:20:51Z raasch
    2730! file re-formatted to follow the PALM coding standard
    2831!
     
    6669    USE restart_data_mpi_io_mod,                                                                   &
    6770        ONLY:  rd_mpi_io_check_array, rrd_mpi_io_global_array, wrd_mpi_io_global_array
     71
     72    USE  user_init_flight_mod,                                                                     &
     73        ONLY:  user_init_flight
    6874
    6975
Note: See TracChangeset for help on using the changeset viewer.