Skip to content

Revise QC for ABI #223

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
rtodling merged 2 commits into from
Jan 29, 2026
Merged

Revise QC for ABI #223

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
d171041
Revise QC for ABI
mhan-mars Jan 29, 2026
daf3398
explain
mhan-mars Jan 29, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 2 additions & 0 deletions CHANGELOG.md
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -10,6 +10,8 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
### Added

### Changed
29Jan2026:
- revise ABI QC

28Jan2026:
- bring back changes from PR #209
Expand Down
12 changes: 6 additions & 6 deletions GEOSaana_GridComp/GSI_GridComp/qcmod.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -4680,20 +4680,20 @@ subroutine qc_abi(nchanl,is,ndat,nsig,ich,sea,land,ice,snow,luse, &
if(luse)aivals(9,is)= aivals(9,is) + one
if(id_qc(i) == igood_qc ) id_qc(i)=ifail_std_abi_qc
varinv(i)=zero
else if (tb_obs_sdv(7) >=0.3 .and. tb_obs_sdv(7) < 0.4) then
else if (tb_obs_sdv(7) >=0.3_r_kind .and. tb_obs_sdv(7) < 0.4_r_kind .and. varinv(i) > zero) then
varinv(i)=varinv(i)/2.
end if

! adjust varinv according to the BT standard deviation
if( i== 2 .or. i==3 .or. i==4 .and. varinv(i) > zero) then
if (tb_obs_sdv(2) >0.4_r_kind .and. tb_obs_sdv(2) <=0.5_r_kind) &
if (tb_obs_sdv(2) >=0.4_r_kind .and. tb_obs_sdv(2) <0.5_r_kind) then
varinv(i)=varinv(i)/1.32_r_kind
if (tb_obs_sdv(2) >0.5_r_kind .and. tb_obs_sdv(2) <=0.6_r_kind) &
else if (tb_obs_sdv(2) >=0.5_r_kind .and. tb_obs_sdv(2) < 0.6_r_kind) then
varinv(i)=varinv(i)/1.67_r_kind
if (tb_obs_sdv(2) >0.6_r_kind .and. tb_obs_sdv(2) <=0.7_r_kind) &
else if (tb_obs_sdv(2) >=0.6_r_kind .and. tb_obs_sdv(2) <0.7_r_kind) then
varinv(i)=varinv(i)/2.24_r_kind
if (tb_obs_sdv(2) >0.7_r_kind ) then
if(id_qc(i) == igood_qc ) id_qc(i)=ifail_std_abi_qc
else if (tb_obs_sdv(2) >=0.7_r_kind) then
if(id_qc(i) == igood_qc ) id_qc(i)=ifail_std_abi_qc
varinv(i)=zero
end if
end if
Expand Down
Loading