From bbdaf21b3f573229ce8f583df99940e1c3a9d40d Mon Sep 17 00:00:00 2001 From: "russ.treadon" Date: Wed, 1 Jul 2020 13:41:02 +0000 Subject: [PATCH] Issue #2: replace ERROR with WARNING in tcv_mod.f90 runtime printout --- src/gsi/tcv_mod.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/gsi/tcv_mod.f90 b/src/gsi/tcv_mod.f90 index dfec6e05b5..ab3e8c6372 100644 --- a/src/gsi/tcv_mod.f90 +++ b/src/gsi/tcv_mod.f90 @@ -148,7 +148,7 @@ subroutine get_storminfo(lunin) iret = 0 return else - write(6,*)'GET_STORMINFO: ***ERROR*** num storms to be processed <= 0' + write(6,*)'GET_STORMINFO: ***WARNING*** num storms to be processed <= 0' write(6,*)'GET_STORMINFO: Check file assigned to unit lucard=',lucard iret = 99 return @@ -255,7 +255,7 @@ subroutine read_tcv_card(nums,storm,lucard,stswitch,slonfg,slatfg,centerid,stid, iret = 0 return else - write(6,*)'READ_TCV_CARD: ***ERROR*** num storms to be processed <=0 ' + write(6,*)'READ_TCV_CARD: ***WARNING*** num storms to be processed <=0 ' write(6,*)'READ_TCV_CARD: Check file assigned to unit lucard=',lucard iret = 99 return