diff --git a/src/common/turb/les_mean_subgrid_phy.F90 b/src/common/turb/les_mean_subgrid_phy.F90 index ae4abd8a24e6d68fd4af4c3b9eeccf274b7c166d..80cba3fcbadf613d401df311921e8d0b78a923ee 100644 --- a/src/common/turb/les_mean_subgrid_phy.F90 +++ b/src/common/turb/les_mean_subgrid_phy.F90 @@ -44,6 +44,21 @@ LOGICAL, OPTIONAL, INTENT(IN) :: OSUM ! END SUBROUTINE LES_MEAN_SUBGRID_SURF_PHY ! +! ############################################## + SUBROUTINE LES_MEAN_SUBGRID_SURF_0D_PHY(D,TLES, PA, PA_MEAN, OSUM) +! ############################################## +USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t +USE MODD_LES, ONLY: TLES_t +! +IMPLICIT NONE +! +TYPE(DIMPHYEX_t), INTENT(IN) :: D +TYPE(TLES_t), INTENT(IN) :: TLES +REAL, INTENT(IN) :: PA +REAL, DIMENSION(:), INTENT(INOUT) :: PA_MEAN +LOGICAL, OPTIONAL, INTENT(IN) :: OSUM +! +END SUBROUTINE LES_MEAN_SUBGRID_SURF_0D_PHY END INTERFACE LES_MEAN_SUBGRID_PHY ! END MODULE MODI_LES_MEAN_SUBGRID_PHY @@ -86,3 +101,24 @@ LOGICAL, OPTIONAL, INTENT(IN) :: OSUM ! CALL ABORT !not used in AROME END SUBROUTINE LES_MEAN_SUBGRID_SURF_PHY +! ############################################## + SUBROUTINE LES_MEAN_SUBGRID_SURF_0D_PHY(D,TLES, PA, PA_MEAN, OSUM) +! ############################################## +! +!* 0. DECLARATIONS +! ------------ +! +USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t +USE MODD_LES, ONLY: TLES_t +! +IMPLICIT NONE +! +TYPE(DIMPHYEX_t), INTENT(IN) :: D +TYPE(TLES_t), INTENT(IN) :: TLES +REAL, INTENT(IN) :: PA +REAL, DIMENSION(:), INTENT(INOUT) :: PA_MEAN +LOGICAL, OPTIONAL, INTENT(IN) :: OSUM +! +CALL ABORT !not used in AROME, build for automatic transformation +END SUBROUTINE LES_MEAN_SUBGRID_SURF_0D_PHY +