Changes between Version 1 and Version 2 of U_obs_op_adj

Timestamp:

Mar 7, 2025, 1:20:10 PM (7 days ago)

Author:

lnerger

Comment:

--

U_obs_op_adj

@@ -9 +9 @@
 The interface is the following:
 {{{
-SUBROUTINE U_obs_op_adj(step, dim_p, dim_obs_p, state_p, m_state_p)
+SUBROUTINE U_obs_op_adj(step, dim_p, dim_obs_p, m_state_p, state_p)
 
   INTEGER, INTENT(in) :: step                 ! Current time step
   INTEGER, INTENT(in) :: dim_p                ! PE-local dimension of state
   INTEGER, INTENT(in) :: dim_obs_p            ! Dimension of observed state
-  REAL, INTENT(in)    :: m_state_p(dim_obs_p) ! PE-local observed state
-  REAL, INTENT(out)   :: state_p(dim_p)       ! PE-local model state
+  REAL, INTENT(in)    :: state_p(dim_p)       ! PE-local model state
+  REAL, INTENT(out)   :: m_state_p(dim_obs_p) ! PE-local observed state
 }}}