From 424cbc4778d4fe9506e4adab64a485903fec1fbf Mon Sep 17 00:00:00 2001
From: "Walter.Kolczynski" <Walter.Kolczynski@noaa.gov>
Date: Fri, 12 Apr 2024 17:37:22 -0500
Subject: [PATCH] Remove SENDCOM from make_ntc_bull

The use of SENDCOM was retired in global workflow. make_ntc_bull is updated
to match.

Refs NOAA-EMC/global-workflow#2479
---
 ush/make_ntc_bull.pl | 38 +++++++++++++++-----------------------
 1 file changed, 15 insertions(+), 23 deletions(-)

diff --git a/ush/make_ntc_bull.pl b/ush/make_ntc_bull.pl
index c6ca287e..6dc9e292 100755
--- a/ush/make_ntc_bull.pl
+++ b/ush/make_ntc_bull.pl
@@ -26,7 +26,6 @@
 #------------------------------------------------------
 
 if ($ENV{job}) { $job=$ENV{job}; }
-if ($ENV{SENDCOM}) { $SENDCOM=$ENV{SENDCOM}; }
 if ($ENV{SENDDBN}) { $SENDDBN=$ENV{SENDDBN}; }
 $NArgs = @ARGV;
 
@@ -112,14 +111,12 @@ sub make_tocbull {
       $ByteCount = length($cho2);
       print " length is $ByteCount ";
       $BulletinFlagFieldSep = sprintf( "****%10.10d****", $ByteCount);
-      if ($SENDCOM eq "YES") {
-        if ($ByteCount  >  50  ) {
-          print OUTFILE "$BulletinFlagFieldSep\n";
-          print OUTFILE $cho2;
-        }
-        else {   
-          $ix = 1;
-        }
+      if ($ByteCount  >  50  ) {
+        print OUTFILE "$BulletinFlagFieldSep\n";
+        print OUTFILE $cho2;
+      }
+      else {
+        $ix = 1;
       }
    }
    close OUTFILE;
@@ -169,14 +166,12 @@ sub make_tocplot {
       $ByteCount = length($cho2);
       print " length is $ByteCount ";
       $BulletinFlagFieldSep = sprintf( "****%10.10d****", $ByteCount);
-      if ($SENDCOM eq "YES") {
-        if ($ByteCount  >  50  ) {
-          print OUTFILE "$BulletinFlagFieldSep\n";
-          print OUTFILE $cho2;
-        }
-        else {
-          $ix = 1;
-        }
+      if ($ByteCount  >  50  ) {
+        print OUTFILE "$BulletinFlagFieldSep\n";
+        print OUTFILE $cho2;
+      }
+      else {
+        $ix = 1;
       }
    }
    close OUTFILE;
@@ -221,12 +216,9 @@ sub make_tocredb {
    $ByteCount = length($cho);
    print " length is $ByteCount ";
    $BulletinFlagFieldSep = sprintf( "****%10.10d****", $ByteCount);
-   if ($SENDCOM eq "YES") {
-      if ($ByteCount  >  50  ) {
-          print OUTFILE "$BulletinFlagFieldSep\n";
-          print OUTFILE $cho;
-          
-      }
+   if ($ByteCount  >  50  ) {
+     print OUTFILE "$BulletinFlagFieldSep\n";
+     print OUTFILE $cho;
    }
    close OUTFILE;
    if ($SENDDBN eq "YES" ) {