Newer
Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
!MNH_LIC Copyright 1994-2021 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!!
!! #####################
MODULE MODD_EOL_SHARED_IO
!! #####################
!!
!!*** *MODD_EOL_SHARED_IO*
!!
!! PURPOSE
!! -------
!! It is possible to include wind turbines parameterization in Meso-NH,
!! and several models are available.
!!
!! MODD_EOL_SHARED_IO contains the declarations for the inputs/output
!! shared by the differents models.
!!
!!
!!** AUTHOR
!! ------
!! PA.Joulin *CNRM & IFPEN*
!
!! MODIFICATIONS
!! -------------
!! Original 17/11/20
!!
!-----------------------------------------------------------------------------
!
IMPLICIT NONE
!
!* 1. INPUTS VAR
! ---------------
!
! --- Namelistis NAM_EOL_ADNR/NAM_EOL_ALM ---
! * .csv files
CHARACTER(LEN=100) :: CFARM_CSVDATA ! Farm file to read
CHARACTER(LEN=100) :: CTURBINE_CSVDATA ! Turbine file to read
CHARACTER(LEN=100) :: CBLADE_CSVDATA ! Blade file to read
CHARACTER(LEN=100) :: CAIRFOIL_CSVDATA ! Airfoil file to read
! * flags
CHARACTER(LEN=3) :: CINTERP ! Interpolation method for wind speed
!
!
!* 2. OUTPUTS VAR
! -----------------
!
! --- Thruts torque and power ---
REAL, DIMENSION(:), ALLOCATABLE :: XTHRUT ! Thrust [N]
REAL, DIMENSION(:), ALLOCATABLE :: XTORQT ! Torque [Nm]
REAL, DIMENSION(:), ALLOCATABLE :: XPOWT ! Power [W]
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)
!
END MODULE MODD_EOL_SHARED_IO