From fae4bbfbb1124fe3ceced4c3639a53172ad2db26 Mon Sep 17 00:00:00 2001
From: Haidao Lin <63735768+HaidaoLin-NOAA@users.noreply.github.com>
Date: Sat, 30 Sep 2023 09:26:52 -0600
Subject: [PATCH] fix a bug in read_obs.F90 missing N21 for EARS and DBnet
 (#630)

This PR is to fix a bug in read_obs.F90 missing N21 for EARS and DBnet.

Fixes #506
---
 src/gsi/read_obs.F90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/gsi/read_obs.F90 b/src/gsi/read_obs.F90
index cb4a7c4b8f..dab159bd0a 100644
--- a/src/gsi/read_obs.F90
+++ b/src/gsi/read_obs.F90
@@ -1065,7 +1065,7 @@ subroutine read_obs(ndata,mype)
                    obstype == 'iasi'  .or. obstype == 'atms') .and. &
                   (dplat(i) == 'n17' .or. dplat(i) == 'n18' .or. & 
                    dplat(i) == 'n19' .or. dplat(i) == 'npp' .or. &
-                   dplat(i) == 'n20' .or. &
+                   dplat(i) == 'n20' .or. dplat(i) == 'n21' .or. &
                    dplat(i) == 'metop-a' .or. dplat(i) == 'metop-b' .or. &
                    dplat(i) == 'metop-c') 
 ! direct broadcast from NESDIS/UW
@@ -1076,7 +1076,7 @@ subroutine read_obs(ndata,mype)
                    obstype == 'iasi') .and. &
                   (dplat(i) == 'n17' .or. dplat(i) == 'n18' .or. & 
                    dplat(i) == 'n19' .or. dplat(i) == 'npp' .or. &
-                   dplat(i) == 'n20' .or. &
+                   dplat(i) == 'n20' .or. dplat(i) == 'n21' .or. &
                    dplat(i) == 'metop-a' .or. dplat(i) == 'metop-b' .or. &
                    dplat(i) == 'metop-c')