diff --git a/var/da/da_minimisation/da_get_innov_vector.inc b/var/da/da_minimisation/da_get_innov_vector.inc index 792c3856dd..d3e60d2ca5 100644 --- a/var/da/da_minimisation/da_get_innov_vector.inc +++ b/var/da/da_minimisation/da_get_innov_vector.inc @@ -285,7 +285,7 @@ subroutine da_get_innov_vector (it, num_qcstat_conv, ob, iv, grid, config_flags) ! [3] Optionally rescale observation errors: !------------------------------------------------------------------------ - if (use_obs_errfac) call da_use_obs_errfac( iv) + if (use_obs_errfac .and. it == 1) call da_use_obs_errfac(iv) !------------------------------------------------------------------------ ! [4] Optionally add Gaussian noise to O, O-B: