Merge branch 'NOAA-EMC:develop' into feature/fv3reg_parallel_io_upgrade

TingLei-daprediction · Mar 5, 2024 · f8ddae5 · f8ddae5
2 parents f8f8d20 + fca6bea
commit f8ddae5
Showing 1 changed file with 8 additions and 4 deletions.
diff --git a/src/gsi/read_cris.f90 b/src/gsi/read_cris.f90
@@ -334,14 +334,18 @@ subroutine read_cris(mype,val_cris,ithin,isfcalc,rmesh,jsatid,gstime,&
      spc_filename = trim(crtm_coeffs_path)//'viirs-m_n20.SpcCoeff.bin' 
      sensorlist_imager = 'viirs-m_n20'
      inquire(file=trim(spc_filename), exist=imager_coeff)
-     if ( .not. imager_coeff ) spc_filename = trim(crtm_coeffs_path)//'viirs-m_j1.SpcCoeff.bin'
-     sensorlist_imager = 'viirs-m_j1'
+     if ( .not. imager_coeff ) then
+       spc_filename = trim(crtm_coeffs_path)//'viirs-m_j1.SpcCoeff.bin'
+       sensorlist_imager = 'viirs-m_j1'
+     endif
   elseif ( trim(jsatid) == 'n21' ) then
      spc_filename = trim(crtm_coeffs_path)//'viirs-m_n21.SpcCoeff.bin' 
      sensorlist_imager = 'viirs-m_n21'
      inquire(file=trim(spc_filename), exist=imager_coeff)
-     if ( .not. imager_coeff ) spc_filename = trim(crtm_coeffs_path)//'viirs-m_j2.SpcCoeff.bin'
-     sensorlist_imager = 'viirs-m_j2'
+     if ( .not. imager_coeff ) then
+       spc_filename = trim(crtm_coeffs_path)//'viirs-m_j2.SpcCoeff.bin'
+       sensorlist_imager = 'viirs-m_j2'
+     endif
   endif   
   inquire(file=trim(spc_filename), exist=imager_coeff)
   if ( imager_coeff ) then