minor bug fix mod_save.f90 for saving posterior state vector for use of const_out

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