Skip to content
Snippets Groups Projects
Commit 1c4f8dd9 authored by RODIER Quentin's avatar RODIER Quentin
Browse files

Quentin 28/02/2022: Correction on AROME from Merge of QR_MNH branch :...

Quentin 28/02/2022: Correction on AROME from Merge of QR_MNH branch : qsatmx_tab needed + problem with passing HCLOUD=CMICRO as new arg in apl_arome (TODO)
parent 286d0b43
No related branches found
No related tags found
No related merge requests found
MODULE MODE_TRIDIAG_W MODULE MODI_TRIDIAG_W
! Empty module for PHYEX, used in TURB 3D ! Empty module for PHYEX, used in TURB 3D
END MODULE MODE_TRIDIAG_W END MODULE MODI_TRIDIAG_W
...@@ -3055,7 +3055,7 @@ IF (LTURB) THEN ...@@ -3055,7 +3055,7 @@ IF (LTURB) THEN
& PZZ=ZZZ_,PZZF=ZZZ_F_,& & PZZ=ZZZ_,PZZF=ZZZ_F_,&
& PZZTOP=ZZTOP_,PRHODJ=ZRHODJM__,PTHVREF=ZTHVREFM__,& & PZZTOP=ZZTOP_,PRHODJ=ZRHODJM__,PTHVREF=ZTHVREFM__,&
& PRHODREF=ZRHODREFM__,HINST_SFU='M',& & PRHODREF=ZRHODREFM__,HINST_SFU='M',&
& HMF_UPDRAFT=CMF_UPDRAFT,HCLOUD=CMICRO,& & HMF_UPDRAFT=CMF_UPDRAFT,&
& PSFTH=ZSFTH_,PSFRV=ZSFRV_,& & PSFTH=ZSFTH_,PSFRV=ZSFRV_,&
& PSFSV=ZSFSVLIMA_,PSFU=ZSFU_,& & PSFSV=ZSFSVLIMA_,PSFU=ZSFU_,&
& PSFV=ZSFV_,PPABSM=ZPABSM__,& & PSFV=ZSFV_,PPABSM=ZPABSM__,&
......
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
SUBROUTINE ARO_TURB_MNH( KKA,KKU,KKL,KLON,KLEV,KRR,KRRL,KRRI,KSV, & SUBROUTINE ARO_TURB_MNH( KKA,KKU,KKL,KLON,KLEV,KRR,KRRL,KRRI,KSV, &
KTCOUNT, KGRADIENTS, LDHARATU, PTSTEP, & KTCOUNT, KGRADIENTS, LDHARATU, PTSTEP, &
PZZ, PZZF, PZZTOP, & PZZ, PZZF, PZZTOP, &
PRHODJ, PTHVREF,PRHODREF,HINST_SFU,HMF_UPDRAFT,HCLOUD,& PRHODJ, PTHVREF,PRHODREF,HINST_SFU,HMF_UPDRAFT, &
PSFTH,PSFRV,PSFSV,PSFU,PSFV, & PSFTH,PSFRV,PSFSV,PSFU,PSFV, &
PPABSM,PUM,PVM,PWM,PTKEM,PEPSM,PSVM,PSRCM, & PPABSM,PUM,PVM,PWM,PTKEM,PEPSM,PSVM,PSRCM, &
PTHM,PRM, & PTHM,PRM, &
...@@ -101,7 +101,7 @@ INTEGER, INTENT(IN) :: KGRADIENTS ! Number of stored horizon ...@@ -101,7 +101,7 @@ INTEGER, INTENT(IN) :: KGRADIENTS ! Number of stored horizon
LOGICAL, INTENT(IN) :: LDHARATU ! HARATU scheme active LOGICAL, INTENT(IN) :: LDHARATU ! HARATU scheme active
CHARACTER (LEN=4), INTENT(IN) :: HMF_UPDRAFT ! Type of mass flux scheme CHARACTER (LEN=4), INTENT(IN) :: HMF_UPDRAFT ! Type of mass flux scheme
CHARACTER (LEN=4), INTENT(IN) :: HCLOUD ! Type of microphysical scheme CHARACTER (LEN=4) :: HCLOUD ! Type of microphysical scheme
REAL, INTENT(IN) :: PTSTEP ! Time step REAL, INTENT(IN) :: PTSTEP ! Time step
! !
! !
...@@ -281,7 +281,7 @@ ORMC01=.FALSE. ...@@ -281,7 +281,7 @@ ORMC01=.FALSE.
HTURBDIM='1DIM' HTURBDIM='1DIM'
HTURBLEN='BL89' HTURBLEN='BL89'
HCLOUD='ICE3'
ZIMPL=1. ZIMPL=1.
!Version Ocean du schema de turbulence !Version Ocean du schema de turbulence
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment