From f81b1dfa3a206b23c42456c6938ce5a5c7891756 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 28 Jan 2020 11:32:33 +0100
Subject: [PATCH] Philippe 28/01/2020: budgets: add trhodj in tbudgetdata
datatype
---
src/MNH/modd_budget.f90 | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/src/MNH/modd_budget.f90 b/src/MNH/modd_budget.f90
index bddb712a6..466aaceed 100644
--- a/src/MNH/modd_budget.f90
+++ b/src/MNH/modd_budget.f90
@@ -48,6 +48,7 @@
! P. Wautelet 17/01/2020: add new budget data types
! P. Wautelet 27/01/2020: use the tfield_metadata_base abstract datatype
! P. Wautelet 28/01/2020: add missing budgets for viscosity
+! P. Wautelet 28/01/2020: add trhodj in tbudgetdata datatype
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -90,6 +91,7 @@ type tbudgetdata
! (to allow to store the difference between 2 places)
type(tbusourcedata), dimension(:), allocatable :: tsources ! Full list of source terms (used or not)
type(tbugroupdata), dimension(:), allocatable :: tgroups ! Full list of groups of source terms (to be written)
+ type(tburhodata), pointer :: trhodj => null() ! Budget array for rhodj
end type tbudgetdata
@@ -109,6 +111,10 @@ type, extends( tfield_metadata_base ) :: tbugroupdata
real, dimension(:,:,:), allocatable :: xdata ! Array to store the budget data
end type tbugroupdata
+type, extends( tfield_metadata_base ) :: tburhodata
+ real, dimension(:,:,:), allocatable :: xdata ! Array to store the budget data
+end type tburhodata
+
type(tbudgetdata), dimension(:), allocatable, save :: tbudgets
--
GitLab