Changes between Version 12 and Version 13 of OMI_Callback_obs_pdafomi

Timestamp:

Nov 22, 2020, 10:21:43 AM (4 years ago)

Author:

lnerger

Comment:

--

OMI_Callback_obs_pdafomi

@@ -28 +28 @@
   USE obs_B_pdafomi, ONLY: assim_B, init_dim_obs_B
   USE obs_C_pdafomi, ONLY: assim_C, init_dim_obs_C
+
+  ... argument declarations omitted ...
 
   INTEGER :: dim_obs_A ! Observation dimensions
@@ -67 +69 @@
   USE obs_C_pdafomi, ONLY: obs_op_C
 
+  ... argument declarations omitted ...
+
   CALL obs_op_A(dim_p, dim_obs, state_p, ostate)
   CALL obs_op_B(dim_p, dim_obs, state_p, ostate)
@@ -94 +98 @@
   USE obs_C_pdafomi, ONLY: init_dim_obs_l_C
 
+  ... argument declarations omitted ...
+
   CALL init_dim_obs_l_A(domain_p, step, dim_obs, dim_obs_l)
   CALL init_dim_obs_l_B(domain_p, step, dim_obs, dim_obs_l)
@@ -118 +124 @@
   USE obs_B_pdafomi, ONLY: localize_covar_B
   USE obs_C_pdafomi, ONLY: localize_covar_C
+
+  ... argument declarations omitted ...
 
   REAL, ALLOCATABLE :: coords_p(:,:) ! Coordinates of PE-local state vector entries
@@ -154 +162 @@
   USE obs_C_pdafomi, ONLY: obs_C => thisobs
 
+  ... argument declarations omitted ...
+
   CALL PDAFomi_deallocate_obs(obs_A)
   CALL PDAFomi_deallocate_obs(obs_B)