From 47f9dd269f40f00ca44808dbef85cb3155fc9c74 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 12 May 2020 10:42:53 +0200
Subject: [PATCH] Philippe 12/05/2020: budgets: bugfix: correct name RJX -> RJY
---
src/MNH/write_budget.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/MNH/write_budget.f90 b/src/MNH/write_budget.f90
index 558e573b5..e1827696f 100644
--- a/src/MNH/write_budget.f90
+++ b/src/MNH/write_budget.f90
@@ -425,7 +425,7 @@ subroutine Store_one_budget_rho( tpdiafile, tpdates, tprhodj, kp, knocompress, p
write( ygroup_name, fmt = "('RJX__',I4.4)" ) nbutshift
case( NBUDGET_V )
- write( ygroup_name, fmt = "('RJX__',I4.4)" ) nbutshift
+ write( ygroup_name, fmt = "('RJY__',I4.4)" ) nbutshift
case( NBUDGET_W )
write( ygroup_name, fmt = "('RJZ__',I4.4)" ) nbutshift
--
GitLab