Remove SENDCOM from make_ntc_bull (#62)

# Description The use of SENDCOM was retired in global workflow. make_ntc_bull is updated to match. Refs NOAA-EMC/global-workflow#2479
NOAA-EMC · Apr 12, 2024 · d77c3c9 · d77c3c9
1 parent accaeed
commit d77c3c9
Showing 1 changed file with 15 additions and 23 deletions.
diff --git 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" ) {