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

Philippe 17/04/2020: budgets: set default values for budgets switch values in modd_budget

parent c0a6aa3e
No related branches found
No related tags found
No related merge requests found
Expand all Hide whitespace changes
Inline Side-by-side
src/MNH/default_desfmn.f90
+ 3
− 330
View file @ 6cbf38a3
!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC Copyright 1994-2020 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 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 version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1. !MNH_LIC for details. version 1.
! _Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/default_desfmn.f90,v _
!----------------------------------------------------------------- !-----------------------------------------------------------------
! ########################### ! ###########################
MODULE MODI_DEFAULT_DESFM_n MODULE MODI_DEFAULT_DESFM_n
...@@ -88,29 +87,6 @@ END MODULE MODI_DEFAULT_DESFM_n ...@@ -88,29 +87,6 @@ END MODULE MODI_DEFAULT_DESFM_n
!! !!
!! Module MODD_BUDGET : CBUTYPE,NBUMOD,XBULEN,NBUKL, NBUKH,LBU_KCP,XBUWRI !! Module MODD_BUDGET : CBUTYPE,NBUMOD,XBULEN,NBUKL, NBUKH,LBU_KCP,XBUWRI
!! NBUIL, NBUIH,NBUJL, NBUJH,LBU_ICP,LBU_JCP,NBUMASK !! NBUIL, NBUIH,NBUJL, NBUJH,LBU_ICP,LBU_JCP,NBUMASK
!! LBU_RU,LBU_RV,LBU_RW,LBU_RTH,LBU_RTKE,LBU_RRV,LBU_RRC,LBU_RRR
!! LBU_RRI,LBU_RRS,LBU_RRG,LBU_RRH,LBU_RSVx
!! NADVXU, NADVYU, NADVZU, NCURVU, NCORU, NDIFU, NRELU, NHTURBU,
!! NVTURBU, NPRESU
!! NADVXV, NADVYV, NADVZV, NCURVV, NCORV, NDIFV, NRELV, NHTURBV,
!! NVTURBV, NPRESV
!! NADVXW, NADVYW, NADVZW, NCURVW, NCORW, NGRAVW, NDIFW, NRELW,
!! NHTURBW, NVTURBW, NPRESW
!! NADVXTH, NADVYTH, NADVZTH, NPREFTH, NDIFTH, NRELTH, NHTURBTH,
!! NVTURBTH, NREVATH, NCONDTH
!! NADVXTKE, NADVYTKE, NADVZTKE, NDIFTKE, NDPTKE, NTPTKE, NDISSTKE,
!! NTRTKE
!! NADVXRV, NADVYRV, NADVZRV, NDIFRV, NRELRV, NHTURBRV, NVTURBRV,
!! NREVARV, NCONDRV
!! NADVXRC, NADVYRC, NADVZRC, NDIFRC, NHTURBRC, NVTURBRC, NACCRRC,
!! NAUTORC, NCONDRC
!! NADVXRR, NADVYRR, NADVZRR, NDIFRR, NACCRRR, NAUTORR, NREVARR,
!! NSEDIRR
!! NADVXRI, NADVYRI, NADVZRI, NDIFRI
!! NADVXRS, NADVYRS, NADVZRS, NDIFRS
!! NADVXRG, NADVYRG, NADVZRG, NDIFRG
!! NADVXRH, NADVYRH, NADVZRH, NDIFRH
!! NADVXSVx, NADVYSVx, NADVZSVx, NDIFSVx, NHTURBSVx, NVTURBSVx
!! !!
!! Module MODD_BLANK : !! Module MODD_BLANK :
!! !!
...@@ -230,7 +206,7 @@ END MODULE MODI_DEFAULT_DESFM_n ...@@ -230,7 +206,7 @@ END MODULE MODI_DEFAULT_DESFM_n
!! Bielli S. 02/2019 Sea salt : significant sea wave height influences salt emission; 5 salt modes !! Bielli S. 02/2019 Sea salt : significant sea wave height influences salt emission; 5 salt modes
!! 05/2019 F.Brient add tracer emission from the top of the boundary-layer !! 05/2019 F.Brient add tracer emission from the top of the boundary-layer
!! 11/2019 C.Lac correction in the drag formula and application to building in addition to tree !! 11/2019 C.Lac correction in the drag formula and application to building in addition to tree
!! ! P. Wautelet 17/04/2020: move budgets switch values into modd_budget
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
!* 0. DECLARATIONS !* 0. DECLARATIONS
...@@ -581,309 +557,6 @@ IF (KMI == 1) THEN ...@@ -581,309 +557,6 @@ IF (KMI == 1) THEN
! 11.3 Variables for the mask ! 11.3 Variables for the mask
! !
NBUMASK = 1 NBUMASK = 1
!
! 11.4 Variables for budget and processes choice
LBU_RU = .FALSE.
NASSEU = 0
NNESTU = 0
NADVU = 0
NFRCU = 0
NNUDU = 0
NCURVU = 0
NCORU = 0
NDIFU = 0
NRELU = 0
NMAFLU = 0
NDRAGU = 0
NVTURBU = 0
NHTURBU = 0
NPRESU = 0
!
! Budget of RV
LBU_RV = .FALSE.
NASSEV = 0
NNESTV = 0
NADVV = 0
NFRCV = 0
NNUDV = 0
NCURVV = 0
NCORV = 0
NDIFV = 0
NRELV = 0
NMAFLV = 0
NDRAGV = 0
NVTURBV = 0
NHTURBV = 0
NPRESV = 0
!
! Budget of RW
LBU_RW = .FALSE.
NASSEW = 0
NNESTW = 0
NADVW = 0
NFRCW = 0
NNUDW = 0
NCURVW = 0
NCORW = 0
NGRAVW = 0
NDIFW = 0
NRELW = 0
NVTURBW = 0
NHTURBW = 0
NPRESW = 0
!
! Budget of RTH
LBU_RTH = .FALSE.
NASSETH = 0
NNESTTH = 0
NADVTH = 0
NFRCTH = 0
NNUDTH = 0
NPREFTH = 0
NDIFTH = 0
NRELTH = 0
NRADTH = 0
NDCONVTH = 0
NMAFLTH = 0
NVTURBTH = 0
NHTURBTH = 0
NDISSHTH = 0
NNEGATH = 0
NNEADVTH = 0
NNETURTH = 0
NNECONTH = 0
NREVATH = 0
NCONDTH = 0
NHENUTH = 0
NHONTH = 0
NSFRTH = 0
NDEPSTH = 0
NDEPGTH = 0
NREVATH = 0
NRIMTH = 0
NACCTH = 0
NCFRZTH = 0
NWETGTH = 0
NDRYGTH = 0
NWETHTH = 0
NDRYHTH = 0
NGMLTTH = 0
NIMLTTH = 0
NBERFITH = 0
NCDEPITH = 0
NHMLTTH = 0
NCORRTH = 0
NADJUTH = 0
!
! Budget of RTKE
LBU_RTKE = .FALSE.
NASSETKE = 0
NADVTKE = 0
NFRCTKE = 0
NDIFTKE = 0
NRELTKE = 0
NDRAGTKE = 0
NDPTKE = 0
NTPTKE = 0
NDISSTKE = 0
NTRTKE = 0
!
! Budget of RRV
LBU_RRV = .FALSE.
NASSERV = 0
NNESTRV = 0
NADVRV = 0
NFRCRV = 0
NNUDRV = 0
NDIFRV = 0
NRELRV = 0
NDCONVRV = 0
NMAFLRV = 0
NVTURBRV = 0
NHTURBRV = 0
NNEGARV = 0
NNETURRV = 0
NNECONRV = 0
NNEADVRV = 0
NREVARV = 0
NCONDRV = 0
NHENURV = 0
NDEPSRV = 0
NDEPGRV = 0
NREVARV = 0
NCDEPIRV = 0
NCORRRV = 0
NADJURV = 0
!
! Budget of RRC
LBU_RRC = .FALSE.
NASSERC = 0
NNESTRC = 0
NADVRC = 0
NFRCRC = 0
NDIFRC = 0
NRELRC = 0
NDCONVRC = 0
NVTURBRC = 0
NHTURBRC = 0
NNEGARC = 0
NNETURRC = 0
NNECONRC = 0
NNEADVRC = 0
NACCRRC = 0
NAUTORC = 0
NCONDRC = 0
NAUTORC = 0
NACCRRC = 0
NHONRC = 0
NRIMRC = 0
NCMELRC = 0
NWETGRC = 0
NDRYGRC = 0
NIMLTRC = 0
NBERFIRC = 0
NCDEPIRC = 0
NWETHRC = 0
NDRYHRC = 0
NCORRRC = 0
NADJURC = 0
NDEPORC = 0
NDEPOTRRC = 0
!
! Budget of RRR
LBU_RRR = .FALSE.
NASSERR = 0
NNESTRR = 0
NADVRR = 0
NFRCRR = 0
NDIFRR = 0
NRELRR = 0
NNEGARR = 0
NACCRRR = 0
NAUTORR = 0
NREVARR = 0
NSEDIRR = 0
NSFRRR = 0
NACCRR = 0
NCMELRR = 0
NCFRZRR = 0
NWETGRR = 0
NDRYGRR = 0
NGMLTRR = 0
NWETHRR = 0
NDRYHRR = 0
NHMLTRR = 0
NCORRRR = 0
!
! Budget of RRI
LBU_RRI = .FALSE.
NASSERI = 0
NNESTRI = 0
NADVRI = 0
NFRCRI = 0
NDIFRI = 0
NRELRI = 0
NDCONVRI = 0
NVTURBRI = 0
NHTURBRI = 0
NNEGARI = 0
NSEDIRI = 0
NHENURI = 0
NHONRI = 0
NAGGSRI = 0
NAUTSRI = 0
NCFRZRI = 0
NWETGRI = 0
NDRYGRI = 0
NIMLTRI = 0
NBERFIRI = 0
NCDEPIRI = 0
NWETHRI = 0
NDRYHRI = 0
NCORRRI = 0
NADJURI = 0
!
! Budget of RRS
LBU_RRS = .FALSE.
NASSERS = 0
NNESTRS = 0
NADVRS = 0
NFRCRS = 0
NDIFRS = 0
NRELRS = 0
NNEGARS = 0
NSEDIRS = 0
NDEPSRS = 0
NAGGSRS = 0
NAUTSRS = 0
NRIMRS = 0
NACCRS = 0
NCMELRS = 0
NWETGRS = 0
NDRYGRS = 0
NWETHRS = 0
NDRYHRS = 0
NCORRRS = 0
!
! Budget of RRG
LBU_RRG = .FALSE.
NASSERG = 0
NNESTRG = 0
NADVRG = 0
NFRCRG = 0
NDIFRG = 0
NRELRG = 0
NNEGARG = 0
NSEDIRG = 0
NSFRRG = 0
NDEPGRG = 0
NRIMRG = 0
NACCRG = 0
NCMELRG = 0
NCFRZRG = 0
NWETGRG = 0
NDRYGRG = 0
NGMLTRG = 0
NWETHRG = 0
NDRYHRG = 0
NCORRRG = 0
NHGCVRG = 0
NGHCVRG = 0
!
! Budget of RRH
LBU_RRH = .FALSE.
NASSERH = 0
NNESTRH = 0
NADVRH = 0
NFRCRH = 0
NDIFRH = 0
NRELRH = 0
NNEGARH = 0
NWETGRH = 0
NWETHRH = 0
NDRYHRH = 0
NHMLTRH = 0
NCORRRH = 0
NHGCVRH = 0
NGHCVRH = 0
!
! Budget of RSVx
LBU_RSV = .FALSE.
NASSESV = 0
NNESTSV = 0
NADVSV = 0
NFRCSV = 0
NDIFSV = 0
NRELSV = 0
NDCONVSV = 0
NMAFLSV = 0
NVTURBSV = 0
NHTURBSV = 0
NCHEMSV = 0
NNEGASV = 0
NDEPOTRSV = 0
!
!
END IF END IF
! !
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
......
src/MNH/modd_budget.f90
+ 430
− 429
View file @ 6cbf38a3
This diff is collapsed.
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