From 744e2f25f6df1998de784fc6b12e5d4ada9dde23 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 14 Sep 2023 16:11:44 +0200
Subject: [PATCH] Philippe 14/09/2023: flyers (minor): remove some comments
---
src/MNH/ini_aircraft.f90 | 68 -----------------------------------
src/MNH/ini_balloon.f90 | 78 ----------------------------------------
2 files changed, 146 deletions(-)
diff --git a/src/MNH/ini_aircraft.f90 b/src/MNH/ini_aircraft.f90
index 90beb1354..40be29746 100644
--- a/src/MNH/ini_aircraft.f90
+++ b/src/MNH/ini_aircraft.f90
@@ -18,74 +18,6 @@ CONTAINS
! #######################
SUBROUTINE INI_AIRCRAFT
! #######################
-!
-!
-!!**** *INI_AIRCRAFT* - user initializes the aircraft flight path
-!!
-!! PURPOSE
-!! -------
-!
-!
-!!** METHOD
-!! ------
-!!
-!! Must be defined (for each aircraft):
-!! ---------------
-!!
-!! No default exist for these variables.
-!! ************************************
-!!
-!! 1) the model in which the aircraft will evolve
-!! if NOT initialized, the aircraft is NOT used.
-!!
-!! 2) the possibility to switch from a model to its dad or kid
-!! 'FIX' : NMODEL used during the run
-!! 'MOB' : best resolution model used. NMODEL=1 is used at the beginning
-!!
-!!
-!! 3) the type of aircraft
-!!
-!! 'AIRCRAFT' for aircraft
-!!
-!! 4) the takeoff date and time
-!!
-!! 5) the number of flight path segments (SEG)
-!!
-!! 6) the (SEG ) duration of flight in the segments, in the flight order (sec.)
-!!
-!! 6bis) TAIRCRAFT%LALTDEF : flag to define the mode of initialisation of
-!! aircraft altitude TRUE for pressure (corresponding to %XSEGP)
-!! or FALSE for Z (corresponding to %XSEGZ)
-!!
-!! 7) the (SEG+1) latitudes of the segments ends, in the flight order
-!! first point is take-off
-!! last point is landing
-!!
-!! 8) the (SEG+1) longitudes of the segments ends, in the flight order
-!!
-!! 9) the (SEG+1) pressure (%XSEGP) or Z (%XSEGZ) of the segments ends, in the flight order
-!!
-!!
-!!
-!! Can be defined (for each aircraft):
-!! --------------
-!!
-!!
-!! 9) the time step for data storage.
-!! default is 60s
-!!
-!! 10) the name or title describing the aircraft (8 characters)
-!! default is the aircraft type (6 characters) + the aircraft numbers (2 characters)
-!!
-!!
-!! EXTERNAL
-!! --------
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!!
-!! REFERENCE
-!! ---------
!!
!! AUTHOR
!! ------
diff --git a/src/MNH/ini_balloon.f90 b/src/MNH/ini_balloon.f90
index 3b60fd7e5..bbcaa9aba 100644
--- a/src/MNH/ini_balloon.f90
+++ b/src/MNH/ini_balloon.f90
@@ -17,84 +17,6 @@ CONTAINS
SUBROUTINE INI_BALLOON
! ######################
!
-!
-!!**** *INI_BALLOON* - user initializes the balloon characteristics
-!!
-!! PURPOSE
-!! -------
-!
-!
-!!** METHOD
-!! ------
-!!
-!! For constant volume Balloon, horizontal advection using horizontal wind
-!! vertical speed of the balloon calculated using the balloon equation
-!! (Koffi et AL 2000, JAS vol 57 P.2007-2021)
-!!
-!! Must be defined (for each balloon):
-!! ---------------
-!!
-!! No default exist for these variables.
-!! ************************************
-!!
-!! 1) the model in which the balloon will evolve
-!! if NOT initialized, the balloon is NOT used.
-!! 1.1) the possibility to switch from a model to its dad or kid
-!! 'FIX' : NMODEL used during the run
-!! 'MOB' : best resolution model used. NMODEL=1 is used at the beginning
-!!
-!! 2) the type of balloon
-!!
-!! 'RADIOS' for radiosounding balloon
-!! 'ISODEN' for iso-density balloon
-!! 'CVBALL' for constant volume Balloon
-!!
-!! 3) the launching date and time
-!!
-!! 4) the latitude of the launching site
-!!
-!! 5) the longitude of the launching site
-!!
-!! 6) the altitude of the launching site (for 'RADIOS')
-!!
-!! OR
-!!
-!! the altitude OR pressure of balloon at start of the leveled flight
-!! (for 'ISODEN'). In this case, the density of this level will be computed,
-!! and the balloon will evolve at this density level.
-!!
-!!
-!!
-!! Can be defined (for each balloon):
-!! --------------
-!!
-!! 7) the ascentional vertical speed of the ballon (in calm air) (for 'RADIOS')
-!! default is 5m/s
-!!
-!! 8) the time step for data storage.
-!! default is 60s
-!!
-!! 9) the name or title describing the balloon (8 characters)
-!! default is the balloon type (6 characters) + the balloon numbers (2 characters)
-!!
-!! 10) for 'CVBALL' the aerodynamic drag coefficient of the balloon
-!!
-!! 11) for 'CVBALL' the induced drag coefficient (i.e. air shifted by the balloon)
-!!
-!! 12) for 'CVBALL' the volume of the balloon
-!!
-!! 13) for 'CVBALL' the mass of the balloon
-!!
-!!
-!! EXTERNAL
-!! --------
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!!
-!! REFERENCE
-!! ---------
-!!
!! AUTHOR
!! ------
!! Valery Masson * Meteo-France *
--
GitLab