Skip to content
Snippets Groups Projects
Commit 4665b5ab authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 02/02/2023: minor: remove tab characters from Blaze model

parent df396d01
No related branches found
No related tags found
No related merge requests found
Expand all Hide whitespace changes
Inline Side-by-side
src/MNH/firemodel.f90
+ 432
− 432
View file @ 4665b5ab
This diff is collapsed.
src/MNH/modd_fire.f90
+ 39
− 37
View file @ 4665b5ab
......@@ -22,7 +22,7 @@
!!
!! AUTHOR
!! ------
!! A. Costes *Meteo France/Cerfacs*
!! A. Costes *Meteo France/Cerfacs*
!!
!! MODIFICATIONS
!! -------------
......@@ -36,57 +36,59 @@ USE MODD_PRECISION, ONLY: MNHTIME
!
IMPLICIT NONE
!
LOGICAL , SAVE :: LBLAZE ! Flag for Fire model use, default FALSE
SAVE
!
LOGICAL :: LBLAZE ! Flag for Fire model use, default FALSE
CHARACTER(LEN=11) , SAVE :: CPROPAG_MODEL ! Fire propagation model (default SANTONI2011)
CHARACTER(LEN=3) , SAVE :: CHEAT_FLUX_MODEL ! Sensible heat flux injection model (default CST)
CHARACTER(LEN=3) , SAVE :: CLATENT_FLUX_MODEL ! latent heat flux injection model (default CST)
CHARACTER(LEN=11) :: CPROPAG_MODEL ! Fire propagation model (default SANTONI2011)
CHARACTER(LEN=3) :: CHEAT_FLUX_MODEL ! Sensible heat flux injection model (default CST)
CHARACTER(LEN=3) :: CLATENT_FLUX_MODEL ! latent heat flux injection model (default CST)
CHARACTER(LEN=7) , SAVE :: CFIRE_CPL_MODE ! Coupling mode (default 2WAYCPL)
CHARACTER(LEN=7) :: CFIRE_CPL_MODE ! Coupling mode (default 2WAYCPL)
CHARACTER(LEN=28) , SAVE :: CBMAPFILE ! BMap file for FIR2ATM mode (default INIFILE)
LOGICAL , SAVE :: LINTERPWIND ! Flag for wind interpolation
LOGICAL , SAVE :: LSGBAWEIGHT ! Flag for use of weighted average method for SubGrid Burning Area computation
CHARACTER(LEN=28) :: CBMAPFILE ! BMap file for FIR2ATM mode (default INIFILE)
LOGICAL :: LINTERPWIND ! Flag for wind interpolation
LOGICAL :: LSGBAWEIGHT ! Flag for use of weighted average method for SubGrid Burning Area computation
INTEGER , SAVE :: NFIRE_WENO_ORDER ! Weno order (1,3,5)
INTEGER , SAVE :: NFIRE_RK_ORDER ! Runge Kutta order (1,2,3,4)
INTEGER :: NFIRE_WENO_ORDER ! Weno order (1,3,5)
INTEGER :: NFIRE_RK_ORDER ! Runge Kutta order (1,2,3,4)
INTEGER , SAVE :: NREFINX ! Refinement ratio X
INTEGER , SAVE :: NREFINY ! Refinement ratio Y
INTEGER :: NREFINX ! Refinement ratio X
INTEGER :: NREFINY ! Refinement ratio Y
REAL , SAVE :: XCFLMAXFIRE ! Maximum CFL on fire mesh
REAL , SAVE :: XLSDIFFUSION ! Numerical diffusion of LevelSet
REAL , SAVE :: XROSDIFFUSION ! Numerical diffusion of ROS
REAL :: XCFLMAXFIRE ! Maximum CFL on fire mesh
REAL :: XLSDIFFUSION ! Numerical diffusion of LevelSet
REAL :: XROSDIFFUSION ! Numerical diffusion of ROS
REAL , SAVE :: XFERR ! Flamming Energy Release ratio (between 0.5 <= FERR < 1)
REAL :: XFERR ! Flamming Energy Release ratio (between 0.5 <= FERR < 1)
REAL , SAVE :: XFLUXZEXT ! Flux distribution on vertical caracteristic length
REAL , SAVE :: XFLUXZMAX ! Flux distribution on vertical max injetion height
REAL :: XFLUXZEXT ! Flux distribution on vertical caracteristic length
REAL :: XFLUXZMAX ! Flux distribution on vertical max injetion height
REAL , SAVE :: XFLXCOEFTMP ! Flux multiplicator. For testing
REAL :: XFLXCOEFTMP ! Flux multiplicator. For testing
LOGICAL , SAVE :: LWINDFILTER ! Fire wind filtering flag
CHARACTER(LEN=4) , SAVE :: CWINDFILTER ! Wind filter method (EWAM or WLIM)
REAL , SAVE :: XEWAMTAU ! Time averaging constant for EWAM method (s)
REAL , SAVE :: XWLIMUTH ! Thresehold wind value for WLIM method (m/s)
REAL , SAVE :: XWLIMUTMAX ! Maximum wind value for WLIM method (m/s) (needs to be >= XWLIMUTH )
LOGICAL :: LWINDFILTER ! Fire wind filtering flag
CHARACTER(LEN=4) :: CWINDFILTER ! Wind filter method (EWAM or WLIM)
REAL :: XEWAMTAU ! Time averaging constant for EWAM method (s)
REAL :: XWLIMUTH ! Thresehold wind value for WLIM method (m/s)
REAL :: XWLIMUTMAX ! Maximum wind value for WLIM method (m/s) (needs to be >= XWLIMUTH )
INTEGER , SAVE :: NWINDSLOPECPLMODE ! Flag for use of wind/slope in ROS (0 = wind + slope, 1 = wind only, 2 = slope only (U0=0))
INTEGER :: NWINDSLOPECPLMODE ! Flag for use of wind/slope in ROS (0=wind + slope, 1=wind only, 2=slope only (U0=0))
INTEGER , SAVE :: NNBSMOKETRACER
INTEGER :: NNBSMOKETRACER
!
! Parameters not in the namelist
!
REAL, DIMENSION(2), SAVE :: XFIREMESHSIZE ! Fire Mesh size [dxf,dyf]
REAL(KIND=MNHTIME), DIMENSION(2), SAVE :: XFIREPERF ! Blaze fire model performance
REAL(KIND=MNHTIME), DIMENSION(2), SAVE :: XGRADPERF ! Grad computation performance
REAL(KIND=MNHTIME), DIMENSION(2), SAVE :: XROSWINDPERF ! ROS and wind interpolation computation performance
REAL(KIND=MNHTIME), DIMENSION(2), SAVE :: XPROPAGPERF ! Propagation computation performance
REAL(KIND=MNHTIME), DIMENSION(2), SAVE :: XFLUXPERF ! Heat fluxes computation performance
LOGICAL , SAVE :: LRESTA_ASE ! Flag for using ASE in RESTA file
LOGICAL , SAVE :: LRESTA_AWC ! Flag for using AWC in RESTA file
LOGICAL , SAVE :: LRESTA_EWAM ! Flag for using EWAM in RESTA file
LOGICAL , SAVE :: LRESTA_WLIM ! Flag for using WLIM in RESTA file
REAL, DIMENSION(2) :: XFIREMESHSIZE ! Fire Mesh size [dxf,dyf]
REAL(KIND=MNHTIME), DIMENSION(2) :: XFIREPERF ! Blaze fire model performance
REAL(KIND=MNHTIME), DIMENSION(2) :: XGRADPERF ! Grad computation performance
REAL(KIND=MNHTIME), DIMENSION(2) :: XROSWINDPERF ! ROS and wind interpolation computation performance
REAL(KIND=MNHTIME), DIMENSION(2) :: XPROPAGPERF ! Propagation computation performance
REAL(KIND=MNHTIME), DIMENSION(2) :: XFLUXPERF ! Heat fluxes computation performance
LOGICAL :: LRESTA_ASE ! Flag for using ASE in RESTA file
LOGICAL :: LRESTA_AWC ! Flag for using AWC in RESTA file
LOGICAL :: LRESTA_EWAM ! Flag for using EWAM in RESTA file
LOGICAL :: LRESTA_WLIM ! Flag for using WLIM in RESTA file
END MODULE MODD_FIRE
src/MNH/modn_fire.f90
+ 1
− 1
View file @ 4665b5ab
......@@ -26,7 +26,7 @@
!!
!! AUTHOR
!! ------
!! A. Costes *Meteo France*
!! A. Costes *Meteo France*
!!
!! MODIFICATIONS
!! -------------
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme