Changes between Version 12 and Version 13 of OMI_Callback_obs_pdafomi


Ignore:
Timestamp:
Nov 22, 2020, 10:21:43 AM (3 months ago)
Author:
lnerger
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • OMI_Callback_obs_pdafomi

    v12 v13  
    2828  USE obs_B_pdafomi, ONLY: assim_B, init_dim_obs_B
    2929  USE obs_C_pdafomi, ONLY: assim_C, init_dim_obs_C
     30
     31  ... argument declarations omitted ...
    3032
    3133  INTEGER :: dim_obs_A ! Observation dimensions
     
    6769  USE obs_C_pdafomi, ONLY: obs_op_C
    6870
     71  ... argument declarations omitted ...
     72
    6973  CALL obs_op_A(dim_p, dim_obs, state_p, ostate)
    7074  CALL obs_op_B(dim_p, dim_obs, state_p, ostate)
     
    9498  USE obs_C_pdafomi, ONLY: init_dim_obs_l_C
    9599
     100  ... argument declarations omitted ...
     101
    96102  CALL init_dim_obs_l_A(domain_p, step, dim_obs, dim_obs_l)
    97103  CALL init_dim_obs_l_B(domain_p, step, dim_obs, dim_obs_l)
     
    118124  USE obs_B_pdafomi, ONLY: localize_covar_B
    119125  USE obs_C_pdafomi, ONLY: localize_covar_C
     126
     127  ... argument declarations omitted ...
    120128
    121129  REAL, ALLOCATABLE :: coords_p(:,:) ! Coordinates of PE-local state vector entries
     
    154162  USE obs_C_pdafomi, ONLY: obs_C => thisobs
    155163
     164  ... argument declarations omitted ...
     165
    156166  CALL PDAFomi_deallocate_obs(obs_A)
    157167  CALL PDAFomi_deallocate_obs(obs_B)