Quentin 04/01/2023: add new file

src/arome/ext/aroini_mfshal.F90

+SUBROUTINE AROINI_MFSHAL(PALP_PERT,PABUO,PBENTR,PBDETR,PCMF,PENTR_MF,PCRAD_MF,PENTR_DRY,&
+ &          PDETR_DRY,PDETR_LUP,PKCF_MF,PKRC_MF,PTAUSIGMF,PPRES_UV,PFRAC_UP_MAX,&
+ &          PALPHA_MF,PSIGMA_MF,PA1,PB,PC,PBETA1,PR,PLAMBDA)
+ 
+USE PARKIND1, ONLY : JPRB
+USE YOMHOOK , ONLY : LHOOK, DR_HOOK
+!**** *AROINI_MFSHAL*   - 
+!     Purpose.
+!     --------
+!           Call Mso-NH routine INI_CMFSHALL 
+!              (setup of constants for Mass Flux scheme of Pergaud et al)
+!
+!**   Interface.
+!     ----------
+!        *CALL* *AROINI_MFSHAL
+
+!        Explicit arguments :
+!        --------------------
+!        None
+
+!        Implicit arguments :
+!        --------------------
+!        
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.
+!     ----------
+
+!     Reference.
+!     ----------
+!        Documentation AROME 
+
+!     Author.
+!     -------
+!        S. Malardel
+
+!     Modifications.
+!     --------------
+!        Original : 07-10-30
+!     ------------------------------------------------------------------
+
+USE MODI_INI_CMFSHALL
+
+IMPLICIT NONE
+
+REAL,   INTENT(IN)   :: PALP_PERT
+REAL,   INTENT(IN)   :: PABUO
+REAL,   INTENT(IN)   :: PBENTR
+REAL,   INTENT(IN)   :: PBDETR
+REAL,   INTENT(IN)   :: PCMF
+REAL,   INTENT(IN)   :: PENTR_MF
+REAL,   INTENT(IN)   :: PCRAD_MF
+REAL,   INTENT(IN)   :: PENTR_DRY
+REAL,   INTENT(IN)   :: PDETR_DRY
+REAL,   INTENT(IN)   :: PDETR_LUP
+REAL,   INTENT(IN)   :: PKCF_MF
+REAL,   INTENT(IN)   :: PKRC_MF
+REAL,   INTENT(IN)   :: PTAUSIGMF
+REAL,   INTENT(IN)   :: PPRES_UV
+REAL,   INTENT(IN)   :: PFRAC_UP_MAX
+REAL,   INTENT(IN)   :: PALPHA_MF
+REAL,   INTENT(IN)   :: PSIGMA_MF
+REAL,   INTENT(IN)   :: PA1
+REAL,   INTENT(IN)   :: PB
+REAL,   INTENT(IN)   :: PC
+REAL,   INTENT(IN)   :: PBETA1   
+REAL,   INTENT(IN)   :: PR   
+REAL,   INTENT(IN)   :: PLAMBDA   
+
+!     ------------------------------------------------------------------
+
+!         1. Set implicit default values for MODD_CMFSHALL
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('AROINI_MFSHAL',0,ZHOOK_HANDLE)
+CALL INI_CMFSHALL(PALP_PERT,PABUO,PBENTR,PBDETR,PCMF,PENTR_MF,PCRAD_MF,PENTR_DRY,&
+ &          PDETR_DRY,PDETR_LUP,PKCF_MF,PKRC_MF,PTAUSIGMF,PPRES_UV,PFRAC_UP_MAX,&
+ &          PALPHA_MF,PSIGMA_MF,PA1,PB,PC,PBETA1,PR,PLAMBDA)
+
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('AROINI_MFSHAL',1,ZHOOK_HANDLE)
+RETURN
+END SUBROUTINE AROINI_MFSHAL

src/arome/ext/aroini_mfshal.h

+INTERFACE
+SUBROUTINE AROINI_MFSHAL(PALP_PERT,PABUO,PBENTR,PBDETR,PCMF,PENTR_MF,PCRAD_MF,PENTR_DRY,&
+ &          PDETR_DRY,PDETR_LUP,PKCF_MF,PKRC_MF,PTAUSIGMF,PPRES_UV,PFRAC_UP_MAX,&
+ &          PALPHA_MF,PSIGMA_MF,PA1,PB,PC,PBETA1,PR,PLAMBDA)
+
+      USE PARKIND1, ONLY : JPRB
+      USE YOMHOOK , ONLY : LHOOK, DR_HOOK
+
+REAL(KIND=JPRB),   INTENT(IN)   :: PALP_PERT
+REAL(KIND=JPRB),   INTENT(IN)   :: PABUO
+REAL(KIND=JPRB),   INTENT(IN)   :: PBENTR
+REAL(KIND=JPRB),   INTENT(IN)   :: PBDETR
+REAL(KIND=JPRB),   INTENT(IN)   :: PCMF
+REAL(KIND=JPRB),   INTENT(IN)   :: PENTR_MF
+REAL(KIND=JPRB),   INTENT(IN)   :: PCRAD_MF
+REAL(KIND=JPRB),   INTENT(IN)   :: PENTR_DRY
+REAL(KIND=JPRB),   INTENT(IN)   :: PDETR_DRY
+REAL(KIND=JPRB),   INTENT(IN)   :: PDETR_LUP
+REAL(KIND=JPRB),   INTENT(IN)   :: PKCF_MF
+REAL(KIND=JPRB),   INTENT(IN)   :: PKRC_MF
+REAL(KIND=JPRB),   INTENT(IN)   :: PTAUSIGMF
+REAL(KIND=JPRB),   INTENT(IN)   :: PPRES_UV
+REAL(KIND=JPRB),   INTENT(IN)   :: PFRAC_UP_MAX
+REAL(KIND=JPRB),   INTENT(IN)   :: PALPHA_MF
+REAL(KIND=JPRB),   INTENT(IN)   :: PSIGMA_MF
+REAL(KIND=JPRB),   INTENT(IN)   :: PA1
+REAL(KIND=JPRB),   INTENT(IN)   :: PB
+REAL(KIND=JPRB),   INTENT(IN)   :: PC
+REAL(KIND=JPRB),   INTENT(IN)   :: PBETA1   
+REAL(KIND=JPRB),   INTENT(IN)   :: PR
+REAL(KIND=JPRB),   INTENT(IN)   :: PLAMBDA   
+
+END SUBROUTINE AROINI_MFSHAL
+END INTERFACE