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

Add LES_MEAN_SUBGRID for real with call abort, should not be used

parent 275c8706
No related branches found
No related tags found
No related merge requests found
......@@ -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
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