diff --git a/src/MNH/modd_budget.f90 b/src/MNH/modd_budget.f90 index bddb712a6edfb1d7965f2286a64b60988f0c6998..466aaceed1693de634ff1272199937cee6e7393d 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