Changes between Version 3 and Version 4 of PDAFomi_set_icoeff_p

Timestamp:

Nov 24, 2024, 5:12:40 PM (3 hours ago)

Author:

lnerger

Comment:

--

PDAFomi_set_icoeff_p

@@ -9 +9 @@
 The interface is:
 {{{
-  SUBROUTINE PDAFomi_set_icoeff_p(thisobs, nobs_p, ntps, icoeff_p)
+  SUBROUTINE PDAFomi_set_icoeff_p(thisobs, nrows, dim_obs_p, id_obs_p)
 
-    TYPE(obs_f), INTENT(inout) :: thisobs           ! Observation type
-    INTEGER, INTENT(in) :: nobs_p                   ! number of process-local observations
-    INTEGER, INTENT(in) :: npts                     ! number of points used in observation operator
-    REAL, INTENT(in) :: icoeff_p(nobs_p, npts)      ! Array of interpolation coefficients
+    TYPE(obs_f), INTENT(inout) :: thisobs              ! Observation type
+    INTEGER, INTENT(in) :: nrows                       ! Number of rows required in observation operator
+    INTEGER, INTENT(in) :: dim_obs_p                   ! Number of process-local observations
+    REAL, INTENT(in) :: icoeff_p(nrows, dim_obs_p)     ! Array of interpolation coefficients
 }}}