Merge pull request #600 from jvgeiger/fix/ldt-usafsi

Merge LDT USAFSI fix into support/lisf-557ww-7.3 branch
NASA-LIS · Sep 30, 2020 · 75d06a9 · 75d06a9
2 parents 2fa3b54 + ebb6e9c
commit 75d06a9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ldt/USAFSI/USAFSI_netcdfMod.F90 b/ldt/USAFSI/USAFSI_netcdfMod.F90
@@ -685,7 +685,7 @@ subroutine USAFSI_read_netcdf_12z(date10,ierr)
       nr = LDT_rc%lnr(1)
 
       ! See if file exists
-      infilename = trim(usafsi_settings%netcdf_prefix)//date10//".nc"
+      infilename = trim(usafsi_settings%netcdf_prefix)//"_"//date10//".nc"
       inquire(file=trim(infilename), exist=file_exists)
       if (.not. file_exists) return