diff --git a/source/mod_save.f90 b/source/mod_save.f90
index 1219cef9abf73cab24f6006fea11807758a22fbc..a4e6a5da85fa2059f5df0043a35256ee260cb984 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