From 283f517865f2a70f6aa1b578e4ced1653c08530d Mon Sep 17 00:00:00 2001 From: Pierre-Antoine Joulin <joulin.pierre-antoine@ifpen.fr> Date: Tue, 11 Apr 2023 17:46:41 +0200 Subject: [PATCH] Cosmetics --- src/MNH/eol_main.f90 | 2 +- src/MNH/eol_maths.f90 | 2 +- src/MNH/eol_printer.f90 | 2 +- src/MNH/eol_reader.f90 | 2 +- src/MNH/modd_eol_shared_io.f90 | 6 +++--- 5 files changed, 7 insertions(+), 7 deletions(-) diff --git a/src/MNH/eol_main.f90 b/src/MNH/eol_main.f90 index d3813e016..a921c8ce6 100644 --- a/src/MNH/eol_main.f90 +++ b/src/MNH/eol_main.f90 @@ -59,7 +59,7 @@ END MODULE MODI_EOL_MAIN !! MODIFICATIONS !! ------------- !! 21/10/20 Original -!! 09/22 H. Toumi : adding ADR model +!! 09/22 H. Toumi : add ADR model !! !!--------------------------------------------------------------- ! diff --git a/src/MNH/eol_maths.f90 b/src/MNH/eol_maths.f90 index 465af6593..e38dd234e 100644 --- a/src/MNH/eol_maths.f90 +++ b/src/MNH/eol_maths.f90 @@ -19,7 +19,7 @@ !! ------------- !! Original 24/01/17 !! P. Wautelet 19/07/2021: replace double precision by real to allow MNH_REAL=4 compilation -!! H. Toumi 04/23 : adding ADR functions +!! H. Toumi 04/23 : add ADR functions !! !----------------------------------------------------------------- ! ####################### diff --git a/src/MNH/eol_printer.f90 b/src/MNH/eol_printer.f90 index c4198d4b6..9bd815e48 100644 --- a/src/MNH/eol_printer.f90 +++ b/src/MNH/eol_printer.f90 @@ -141,7 +141,7 @@ END MODULE MODI_EOL_PRINTER !! MODIFICATIONS !! ------------- !! Original 26/10/2020 -!! H. Toumi 09/22 adding ADR functions +!! H. Toumi 09/22 add ADR functions !! !!--------------------------------------------------------------- ! diff --git a/src/MNH/eol_reader.f90 b/src/MNH/eol_reader.f90 index 1d965e23e..c827b82c6 100644 --- a/src/MNH/eol_reader.f90 +++ b/src/MNH/eol_reader.f90 @@ -127,7 +127,7 @@ END MODULE MODI_EOL_READER !! ------------- !! Original 05/2018 !! Modification 21/10/20 (PA. Joulin) Updated for a main version -!! H. Toumi 09/22 adding ADR functions +!! H. Toumi 09/22 add ADR functions !! !!--------------------------------------------------------------- ! diff --git a/src/MNH/modd_eol_shared_io.f90 b/src/MNH/modd_eol_shared_io.f90 index 5cb4b1cb6..a80dd1fa8 100644 --- a/src/MNH/modd_eol_shared_io.f90 +++ b/src/MNH/modd_eol_shared_io.f90 @@ -62,11 +62,11 @@ REAL, DIMENSION(:,:,:,:), ALLOCATABLE :: XFAERO_RG_GLB ! Aerodyn. force (lift+d REAL, DIMENSION(:), ALLOCATABLE :: XTHRUT ! Thrust [N] REAL, DIMENSION(:), ALLOCATABLE :: XTORQT ! Torque [Nm] REAL, DIMENSION(:), ALLOCATABLE :: XPOWT ! Power [W] +! +! Mean values REAL, DIMENSION(:), ALLOCATABLE :: XTHRU_SUM ! Sum of thrust (N) REAL, DIMENSION(:), ALLOCATABLE :: XTORQ_SUM ! Sum of torque (Nm) REAL, DIMENSION(:), ALLOCATABLE :: XPOW_SUM ! Sum of power (W) -! -! Mean values -REAL, DIMENSION(:,:,:), ALLOCATABLE :: XAOA_SUM ! Sum of angle of attack [rad] +REAL, DIMENSION(:,:,:), ALLOCATABLE :: XAOA_SUM ! Sum of angle of attack [rad] ! END MODULE MODD_EOL_SHARED_IO -- GitLab