Merge remote-tracking branch 'upstream/develop' into GSI_fed_3denvar

hongli-wang · Oct 6, 2023 · 0ece9b9 · 0ece9b9
2 parents 085ea33 + 25306a2
commit 0ece9b9
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/src/gsi/cplr_get_fv3_regional_ensperts.f90 b/src/gsi/cplr_get_fv3_regional_ensperts.f90
@@ -736,7 +736,6 @@ subroutine get_fv3_regional_ensperts_run(this,en_perts,nelen,ps_bar)
 
     enddo ! it 4d loop
  ! CALCULATE ENSEMBLE SPREAD
-    write_ens_sprd=.true.
     if(write_ens_sprd ) then
         call this%ens_spread_dualres_regional(mype,en_perts,nelen)
         call mpi_barrier(mpi_comm_world,ierror) ! do we need this mpi_barrier here? 

diff --git 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')