From 227f493960eb9009c964911b6ded8916921c4ea9 Mon Sep 17 00:00:00 2001
From: ronesy <rlt@nilu.no>
Date: Fri, 28 Feb 2025 12:16:43 +0100
Subject: [PATCH] minor bug fix mod_save.f90 for saving posterior state vector
for use of const_out
---
source/mod_save.f90 | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/source/mod_save.f90 b/source/mod_save.f90
index 1219cef..a4e6a5d 100644
--- a/source/mod_save.f90
+++ b/source/mod_save.f90
@@ -129,6 +129,8 @@ module mod_save
type (fluxes_t), intent(in) :: fluxes
type (states_t), intent(in) :: states
+ integer :: ierr, n
+
if ( config%spec.eq.'co2' ) then
call save_co2(files, config, fluxes, states)
call save_nee_hourly(files, fluxes, states)
@@ -459,7 +461,6 @@ module mod_save
integer :: pri_varid, pos_varid, epri_varid, epos_varid, xpos_varid
integer :: mcpri_varid, mcpos_varid
integer :: ix, jy, n, ix0, jy0, nb
- integer :: ierr
real(kind=8), dimension(ntstate) :: timeout
real, dimension(nxregrid,nyregrid,ntstate) :: fpri, fpos, epri, epos, xpos, focn_reg, mcpri, mcpos
real :: area, totpos
--
GitLab