add ddh budget

src/common/aux/mode_budget.F90

@@ -48,4 +48,18 @@ SUBROUTINE BUDGET_STORE_ADD(TPBUDGET, HSOURCE, PVARS)
   REAL, DIMENSION(:,:,:), INTENT(IN)    :: PVARS    ! Current value to be stored
   REAL, DIMENSION(SIZE(PVARS, 1), SIZE(PVARS, 2), SIZE(PVARS, 3)) :: ZVARS
 END SUBROUTINE BUDGET_STORE_ADD
+!
+SUBROUTINE BUDGET_DDH(PVARS, KBUDN, HSOURCE, YDDDH, YDLDDH, YDMDDH, LDISDIFF)
+  USE DDH_MIX, ONLY  : TYP_DDH
+  USE YOMLDDH, ONLY  : TLDDH
+  USE YOMMDDH, ONLY  : TMDDH
+
+  REAL, DIMENSION(:,:,:), INTENT(IN)    :: PVARS    ! source of the variable
+  INTEGER,                INTENT(IN)    :: KBUDN    ! variable number
+  CHARACTER(LEN=*),       INTENT(IN)    :: HSOURCE  ! Identifier of the Budget
+  TYPE(TYP_DDH),          INTENT(INOUT) :: YDDDH
+  TYPE(TLDDH),            INTENT(IN)    :: YDLDDH
+  TYPE(TMDDH),            INTENT(IN)    :: YDMDDH
+  LOGICAL, OPTIONAL,      INTENT(IN)    :: LDISDIFF ! PVARS contains the increment (default is .FALSE.)
+END SUBROUTINE BUDGET_DDH
 END MODULE MODE_BUDGET