Skip to content

Commit 26f9414

Browse files
authored
Merge pull request #1367 from emkemp/fix/usafsi_rc
Replaced call to LDT_endrun to avoid erroneous error code 1.
2 parents 0a2de77 + e710956 commit 26f9414

File tree

1 file changed

+4
-1
lines changed

1 file changed

+4
-1
lines changed

ldt/USAFSI/USAFSI_run.F90

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -69,6 +69,8 @@ subroutine USAFSI_run(n)
6969
!** 28 Jan 21 Updated messages for PMW snow retrievals
7070
!** and cleaned some unused codes..................Yeosang Yoon/NASA GSFC/SAIC
7171
!** 13 Jan 22 Added support for FNMOC SST GRIB1 file.........Eric Kemp/NASA GSFC/SSAI
72+
!** 27 Jun 23 Removed LDT_endrun for normal termination, to avoid error
73+
! code 1.........................................Eric Kemp/SSAI
7274
!*****************************************************************************************
7375
!*****************************************************************************************
7476

@@ -517,7 +519,8 @@ subroutine USAFSI_run(n)
517519
#endif
518520

519521
write (LDT_logunit,*) '[INFO] NORMAL TERMINATION'
520-
call LDT_endrun()
522+
!call LDT_endrun() ! EMK...Avoid error code 1
523+
return
521524

522525
! ERROR HANDLING SECTION.
523526
4200 continue

0 commit comments

Comments
 (0)