From 67b7118d4187054b6a244077666d5d01e63f0b7e Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 27 May 2021 09:31:05 +0200
Subject: [PATCH] Philippe 27/05/2021: budgets: correct type for MASKS array
---
src/MNH/write_budget.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/MNH/write_budget.f90 b/src/MNH/write_budget.f90
index ea29bf5a9..7acbbb37c 100644
--- a/src/MNH/write_budget.f90
+++ b/src/MNH/write_budget.f90
@@ -105,7 +105,7 @@ subroutine Write_budget( tpdiafile, tpdtcur, ptstep, ksv )
tbudgets, tburhodj
use modd_field, only: NMNHDIM_ONE, NMNHDIM_NI, NMNHDIM_NJ, &
NMNHDIM_BUDGET_TIME, NMNHDIM_BUDGET_MASK_NBUMASK, NMNHDIM_UNUSED, &
- tfielddata, TYPEREAL
+ tfielddata, TYPEINT, TYPEREAL
use modd_io, only: tfiledata
use modd_lunit_n, only: tluout
use modd_parameters, only: NMNHNAMELGTMAX
@@ -281,7 +281,7 @@ subroutine Write_budget( tpdiafile, tpdtcur, ptstep, ksv )
tzfield%cdir = 'XY'
tzfield%ccomment = 'Masks for budget areas'
tzfield%ngrid = 1
- tzfield%ntype = TYPEREAL
+ tzfield%ntype = TYPEINT
tzfield%ndims = 4
tzfield%ltimedep = .false. !The time dependance is in the NMNHDIM_BUDGET_TIME dimension
tzfield%ndimlist(1) = NMNHDIM_NI
--
GitLab