Commit b28c96f4 authored by ronesy's avatar ronesy
Browse files

Correction to posterior error calculation for scalars of initial concentration in congrad

parent 657f67e5
......@@ -403,7 +403,7 @@ subroutine congrad(iter, grad, files, config, fluxes, obs, states, covar)
end do
end do
if ( config%opt_cini ) then
tmp(npvar+1:nvar) = tmp(npvar+1:nvar) + config%cinierr * pevecs(jk,npvar+1:nvar)
tmp(npvar+1:nvar) = tmp(npvar+1:nvar) + (config%cinierr * pevecs(jk,npvar+1:nvar))**2
endif
end do
! calculate last part
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment