#!/usr/bin/perl
############################################################################
# zsolt.szabo@noaa.gov                                                     #
# use: buildpage [model name] [cycle] [size]                               #
#                                                                          #
# model name={nam,gfs,...}                                                 #
# cycle={0,6,12,18}                                                        #
# size={s,m,l}                                                             #
#   Note: for the HiRES, the graphics are always large, so in this case    #
#         the size parameter is used instead to indicate the model type,   #
#         where "m" = ARW and "l" = NMM                                    #
#                                                                          #
############################################################################
# Turn on/off debug printing. 
#
#  0 = No debugging
#  1 = Some debugging
#  2 = Verbose debugging
#$DEBUG=0;
#$DEBUG=1;
$DEBUG=2;

if ($ENV{USHgempak}) { $scriptdir=$ENV{USHgempak}; }
else { die "Please define ENV USHgempak.\n"; }

sub init_defs;
sub get_fp_vars;
sub get_cr;
sub ch_col_name;
sub do_main_hdr;
sub do_main_hd2;
sub do_stat_pge;
sub do_fp_hdr;
sub do_tp_hdr;
sub pr_col_name;
sub pr_col_nam2;
sub gen_body_rtma;
sub gen_body;
sub gen_bod2;
sub gen_body_gens;
sub build_fp_page;
sub pr_col_name2;
sub pr_col_nam22;
sub createLoopHTML;
sub createLoopHTMLIndex;

init_defs;          # initialize default variables, etc.
get_cr;             # determine rows and column names
if ($model =~ "hiresw") {
   if ($clnv == 0) {
     print "No gifs present for WRF \n";
     do_stat_pge;   
     exit;
   }
}
$cln2=0;

if ($ENV{REGION}) {$region=$ENV{REGION}; }
else { die "You must define environment variable REGION.\n"; }

$mod=$model;
if ($model =~ "storm") {
   if($region =~ /hur/)
      {
       $mod= "hur";
      }
   if($region =~ /hwrf/)
      {
       $mod= "hwrf";
      }
}

if ($model =~ "gfs") {
   if ($region =~ "epac") {
     $cln2=8;
     $colnm=8;
   }
   else {
     $cln2=10;
     $colnm=10;
   }
}
ch_col_name;        # change column names to descriptive titles
# Here we build the web page and write it out to $ofile (which is 
# defined above as $modhtml/model_[size].shtml)

$ofa="$modhtms/model_${siz}.shtml"; # HTML output filename, relative to root directory for website
$ofile="${ofa}";           # Fully-qualified HTML output filename 
if ($model =~ "gfs") {            # GFS model is split across 2 web pages
  $ofb="$modhtms/model_${siz}u.shtml";
  $ofil2="${ofb}";
}
$fpcf="$modhtms/fpc.shtml";  # HTML output filename for 4-panel chart
$tpcf="$modhtms/tpc.shtml";  # HTML output filename for 2-panel chart

print " opening MFF ${ofile}\n"; 
open (MFF, ">${ofile}");
if ($model =~ "gfs") {
  print " opening MF2 ${ofil2}\n"; 
  open (MF2, ">${ofil2}");
}
open (FPC, ">${fpcf}");
if($model =~ "sto" ) {
   open (TPC, ">${tpcf}");
}

if ($DEBUG > 0) {
  print " fpcf is  $fpcf  \n";
}

get_fp_vars;				#
do_main_hdr;        # print main html header
do_fp_hdr;          # print four panel html header
if($model =~ "sto" ) {
   do_tp_hdr;         
}
pr_col_name;        # print column names in main page

# generate the main page
if ($model =~ "rtma" ) {
  gen_body_rtma;
}
else {
  if ($model =~ "gens") {
     gen_body_gens;
  }
else {
  gen_body;
}

if ($model =~ "gfs"){
  do_main_hd2;
  pr_col_nam2;
  gen_bod2;
}
#
#   Create the 2 panel html files for the
#
if($model =~ "sto"){
   @args_s=("$scriptdir/make2p_html.sh $model");
   if (system(@args_s) != 0) {
       $mstrg="Couldn't build html files  \nAborted.\n";
   }

}
exit 0;

############################################################################
#########################################################################
# Initial definitions and tests
# Define some constants, make sure we have the right number and type of
# arguments.
sub init_defs {

  # turn off I/O buffering
  $| = 1;

  if ($DEBUG > 1) { print "Entering init_defs...\n"; }

  if ($#ARGV != 2) {
    die "Usage: build_model_page [model name] [cycle] [size]\n";
  }
  $model=$ARGV[0];
  $cycle=$ARGV[1];
  $siz=$ARGV[2];    # siz=image size (different pages created for each
                    # image size: small, medium, large)

  # basep - the root directory, up to the location where the model dirs live
  # model - the name of the model (gfs,nam, etc.)
  # title - the title given for the table; it is derived from the model name
  # cycle - (00,06, etc.)
  # siz   - three web pages are built, one for each size (s,m,l)
  if ($ENV{envir}) { $envir=$ENV{envir}; }
  else { die "You must define environment variable envir.\n"; } 
  if ($ENV{DATA}) { $data=$ENV{DATA}; }
  else { die "You must define environment variable DATA.\n"; }
  if ($ENV{BASEDIR}) { $basep=$ENV{BASEDIR}; }
  else { die "You must define environment variable BASEDIR.\n"; }
#  if ($ENV{BASEPROD}) { $basep_gif=$ENV{BASEPROD}; }
#  else { die "You must define environment variable BASEPROD.\n"; }
  if ($ENV{FIXgempak}) { $fixgem=$ENV{FIXgempak}; }
  else { die "You must define environment variable FIXgempak.\n"; }
  if ($ENV{REGION}) {$region=$ENV{REGION}; }
  else { die "You must define environment variable REGION.\n"; }

  $mod=$model;
  if ($model =~ "storm") {
     if($region =~ /hur/)
        {
         $mod= "hur";
        }
     if($region =~ /hwrf/)
        {
         $mod= "hwrf";
        }
  }

  if ($region =~ /namer/)
    { 
     if ($model =~ /hiresw/)
       {
        if ($cycle=~/00/) { $regtitle="Eastern US"; } 
        elsif ($cycle =~ /06/) { $regtitle="Western US"; } 
        elsif ($cycle =~ /12/) { $regtitle="Eastern US"; }
        elsif ($cycle =~ /18/) { $regtitle="Alaska"; }
       }
     else 
       {  
        $regtitle="North America";
       }
    }
  elsif ($region =~ /samer/ ) { $regtitle="South America"; }
  elsif ($region =~ /npac/ ) { $regtitle="North Pacific"; }
  elsif ($region =~ /carib/ ) { $regtitle="Western North Atlantic"; }
  elsif ($region =~ /epac/ ) { $regtitle="Eastern Pacific"; }
  elsif ($region =~ /africa/ ) { $regtitle="Africa"; }
  elsif ($region =~ /hur/ ) { $regtitle="GHM Hurricane"; }
  elsif ($region =~ /hwrf/ ) { $regtitle="WRF Hurricane"; }
  $basep="$basep/$region";
  #if ($ENV{DEVELOP}) { $basep="$basep/temp"; }
  $title=uc $mod; # title for table
  if ($region =~ "hur") {
     $unregion="Inner Nest  ";
     $unmod="hur_nested";
  }
  if ($region =~ "hur_") {
      $title="Inner Nest";
      $unregion="Atlantic/Pacific";
      $unmod="hur";
  }
  if ($region =~ "hwrf") {
     $unregion="Inner Nest  ";
     $unmod="hwrf_nested";
  }
  if ($region =~ "hwrf_") {
      $title="Inner Nest";
      $unregion="Atlantic/Pacific";
      $unmod="hwrf";
  }

  if ($model =~ "hiresw") {
     if ($siz =~ "l") { $modtpe="NMM"; }
     else { $modtpe="ARW"; }
     $title=$title . " " . $modtpe;
  }
  else {
     $modtpe="";
  }

  $cho=substr($title,0,3);
  if($cho =~ /sto/) {
     if ($region =~ /hur/) {
     $title = "GHM Hurricane";
     }
     if ($region =~ /hwrf/) {
     $title = "WRF Hurricane";
     }
  }
  $htmltmp="$basep/$model/$cycle";

  if ($siz =~ /[sl]/) {
     if ($region =~ /epac/ ) {
        exit;
     }
  }  
  if ($siz !~ /[sml]/) {
    die "Size must be [sml]\n";
  }

  if ($cycle !~ /00|06|12|18/) {
    if ( $model !~ /ruc|rtma/ ) {
      die "cycle must be [00|06|12|18]\n";
    }
  }

  $ofile="$htmltmp/model_${siz}.shtml";
  print "ofile= $ofile\n";
  print "model= $model\n";
  $fpcf="$htmltmp/fpc.shtml";
  $tpcf="$htmltmp/tpc.shtml";
  
  if ( ${model} =~ "wave" ) {
      $fpdef="$fixgem/webgif_fpdef_ww3";
  }
  elsif ( ${model} =~ "gfs" ) {
      if ( ${region} =~ /samer/ )
      {
         $fpdef="$fixgem/webgif_fpdef_gfs.samer";
      }
      else
      {
         $fpdef="$fixgem/webgif_fpdef_gfs";
      }
  }
  elsif ( ${model} =~ "storm" ) {
      if ( ${region} =~ /hur/ )
         {
          $fpdef="$fixgem/webgif_fpdef_hur";
         }
      else
         {
          $fpdef="$fixgem/webgif_fpdef_hwrf";
         }
  }
  elsif ( $model =~ /gefs|gens/ ) {
      print "model = $model\n";
      $fpdef="$fixgem/webgif_fpdef_gefs";
  }
  elsif ( $model =~ "rtma" ) {
      $fpdef="$fixgem/webgif_fpdef_rtma";
  }
  else {
      $fpdef="$fixgem/webgif_fpdef"; 
  }

  if ($ENV{RELPATH}) {$hrf=$ENV{RELPATH}; }
  else { $hrf="/pmb/nw${envir}/analysis"; }

  # imagedir - relative location of the images directory
  # gifdir - location of the GIF files, based on model and cycle
  # htmdir - location of the html files
  # basep and gifdir together make up a complete path to the images of a
  #   particular model/cycle
  # looplistdir - location of the image loop lists
  #
  $htmdir="/${model}/${cycle}";
  $imagedir = "images";
  $gifdir="${htmdir}/${imagedir}";
  $modhtms=$htmltmp;
  $modgifs="${basep}${gifdir}";
  if ($DEBUG > 0) {
    print " modgifs is $modgifs\n ";
    print " basep is $basep\n";
    print " gifdir is $gifdir\n";
  }
  $looplistdir = "loop_lists"; # Relative to the $htmdir.

  $full_looplistdir = "$basep$htmdir/$looplistdir";
  if ( ! -e $full_looplistdir ) {
    mkdir("$full_looplistdir") || die "Error creating directory $full_looplistdir: $!.\n";
  }

  if ($DEBUG > 0) {
    print "Base GIF directory(\$basep\$gifdir): $basep$gifdir \n";
    print "  basep:        $basep\n";
    print "  gifdir:       $gifdir\n";
    print "  htmdir:       $htmdir\n";
    print "  modhtms:      $modhtms\n";
    print "  looplistdir:  $looplistdir (Relative to htmdir)\n";
    print "  imagedir:     $imagedir (Relative to htmdir)\n";
    print "  modgifs :     $modgifs\n";
  }

  $cln=""; $clnv=0; # cln = column name; clnv = number of columns
  $tsn=""; $tsnv=0; # tsn = time slice name; tsnv = number of t.s.
  @cln=""; @tsn=""; # same as the variables, except these are arrays
  @cln1="";         # descriptive column names, corresponds to @cln
  $colnm="";        # number of columns in table

  #RRomero#  Constants for the HTML code
  $HTML_website_title = "Model Analyses and Forecasts";
  $HTML_table_border = "1";
  $HTML_table_bgcolor = "#ffffff";
  $HTML_table_cellpadding = "2";
  $HTML_table_cellspacing = "0";
  $HTML_table_width = "100%";

  #RRomero# Set image looper variables.
  $HTML_loop_codebase = "/java/AniS";
  $HTML_loop_archive = "aniscode.jar";
  $HTML_loop_code = "AniS.class";
  $HTML_loop_param_controls = "startstop, looprock, step, speed, firstlast, refresh, show, toggle";
  $HTML_loop_param_active_zoom = "3";
  $HTML_loop_param_backcolor = "xCCCCCC";
  $HTML_loop_param_forecolor = "x000000";
  $HTML_loop_param_pause = "2000";
  $HTML_loop_param_pause_percent = "500";
  $HTML_loop_param_toggle_size = "8,8,2";
  #RRomero# Set the image size parameter for the image looper
  SWITCH: {
      $siz =~ /l/ && do {
                       $HTML_loop_image_width = "1280";
                       $HTML_loop_image_height = "1124";
                       last SWITCH;
                     };
      $siz =~ /m/ && do {
                       if ($model =~ /hiresw/) {
                           # For the HiRes WRF, the gif graphics are always made using large
                           # values, and the $siz parameter is instead used to differentiate
                           # between model types, where "m" = ARW and "l" = NMM.
                           $HTML_loop_image_width = "1280";
                           $HTML_loop_image_height = "1124";
                       }
                       else {
                           $HTML_loop_image_width = "1024";
                           $HTML_loop_image_height = "868";
                       }
                       last SWITCH;
                     };
      DEFAULT: do {
                 $HTML_loop_image_width = "640";
                 $HTML_loop_image_height = "580";
               };
  }
  if ($DEBUG > 1) { print "HTML_loop_image_width: $HTML_loop_image_width, HTML_loop_image_height: $HTML_loop_image_height\n"; }

  if ($DEBUG > 1) { print "Leaving init_defs.\n"; }
  return;
}
#########################################################################
############################################################################

############################################################################
#########################################################################
# The next routine opens the directory given by $basep/$gifdir. It finds all
# the images belonging to a particular image size and determines the column
# headers as well as the number of rows and time slices based on the
# file names. The nomenclature of the images is 
# "[model]_[type]_[time][size].gif".
# Based on this information, all the different types and times can be
# established.
#
# $cln and $tsn hold the (orderless) column names and times, respectively.
# @cln and @tsn are lists that hold the ordered entries
# $clnv and $tsnv contain the number of entries for each
sub get_cr {

  if ($DEBUG > 1) { print "Entering get_cr...\n"; }

  if ($DEBUG > 0) { print "  Opening GIF directory $modgifs...\n"; }
  opendir(MODR, $modgifs) || die "Error opening directory $modgifs: $!.\n";
  if ($DEBUG > 0) { print "  Reading GIF directory $modgifs...\n"; }
  @fnames = readdir MODR;
  if ($DEBUG > 1) { print "  GIF filenames: @fnames\n"; }
  if ($DEBUG > 0) { print "  Closing GIF directory $modgifs...\n"; }
  closedir MODR || die "Error closing directory $modgifs: $!.\n";

  while ($curfl = (shift @fnames)) {
    if ($DEBUG > 1) { print "  Checking $curfl...\n"; }
    if ($curfl =~ /.*_.*_(\d{3,3}|[a-z]{3,3})${siz}\.gif/o) {
      if ($DEBUG > 1) { print "    Parsing $curfl...\n"; }
      ($mn, $clnn, $rest) = split /_/, $curfl, 3;
      if ($DEBUG > 1) { print "    Column name is $clnn...\n"; }
      ($tsnn, $rest) = split /${siz}\./, $rest, 2;
      if ($DEBUG > 1) { print "    cln is $cln...\n"; }
      if ($cln !~ /$clnn/i) {
        if ($DEBUG > 1) { print "    Made it here...\n"; }
        $cln = "$clnn:$cln";
        $clnv++;
      }
      if ($tsn !~ /$tsnn/i) {
       $tsn = "$tsnn:$tsn";
       $tsnv++;
      }
    }
  }

  if ( $model =~ "gfs" ) {  # The GFS graphics will be split across two pages.
    # List the upperair graphics, in the order in which they are to appear on the upperair page.
    if ( $region =~ "epac" ) {
      @cln = qw( slp 200 250 300 500 700 850 85v );
    }
    else {
      if ( $region =~ "samer" ) {
         @cln = qw( slp sl8 sl7 200 250 300 500 700 850 85p );
      }
      else
      {
         @cln = qw( slp sl8 sl7 200 250 300 500 700 850 85v );
      }
    }
    # Count the number of upperair graphics.
    $sidx_sfc = @cln;

    # Add the surface graphics to the list, in the order in which they are to appear on the surface page.
    print "region = $region";
    if ( $region =~ "amer" ) {
       push( @cln, qw( ten pcp p06 p12 p24 p36 p48 p60 tpp ) );
    }
    elsif ( $region =~ "africa" ) {
      push( @cln, qw( ten pcp p06 p12 p24 p36 p48 p60 tpp ) );
    }
    elsif ( $region =~ "carib" ) {
      push( @cln, qw( ten pcp tpp ) );
    }
    else {
      push( @cln, qw( ten pcp ) );
    }
  }
  else {  # The graphics will all be on one page, in sorted order based on the name.
    @cln = sort reverse (split /:/, $cln);
  }

  @tsn = sort (split /:/, $tsn); # sorted list of time slices
  $colnm=@cln + 1 ;  # number of columns in table = # of column names + 1
  if ($DEBUG > 1) {
    print <<"ENDOFTEXT";
  cln = @cln
  tsn = @tsn
  colnm = $colnm
ENDOFTEXT
  }

  if ($DEBUG > 1) { print "Leaving get_cr.\n"; }
  return;
}
#########################################################################
############################################################################

############################################################################
#########################################################################
# Change some of the column names we recognize to something more descriptive
sub ch_col_name {

  if ($DEBUG > 1) { print "Entering ch_col_name...\n"; }

  open (MTR, "<$fixgem/webgif_mtrans") || die "Error opening $fixgem/webgif_mtrans: $!.\n";
  while (<MTR>) {
    chomp;
    if ($_ =~ /^\w/) {
      ($coln, $desc) = split /:/, $_, 2;
      $table{$coln}="$desc";
    }
  }

  for ($i=0;$i<$clnv;$i++) {
      $sub=$cln[$i];
    if ($table{$sub} =~ /.{1,}/) {
      $cln1[$i] = $table{$sub};
    }
  }
  close MTR || die "Error closing $fixgem/webgif_mtrans: $!.\n";

  if ($DEBUG > 1) { print "Leaving ch_col_name.\n"; }
  return;
}
#########################################################################
############################################################################
sub do_main_hd2 {

  if ($DEBUG > 1) { print "Entering do_main_hd2...\n"; }


  print MF2  <<"ENDOFTEXT";
<HTML>
<HEAD>
<TITLE>NCEP ${title} Model Forecasts</TITLE>
</HEAD>
<BODY>
<CENTER>
<H2><font face="arial">${HTML_website_title}<br>${title} ${cycle} UTC </font></H2>
ENDOFTEXT

$opst="";
if ($model =~ "gfs") {
    $opst="Upper Air GFS Graphics  ";
}

print MF2  << "ENDOFTEXT";
<TABLE bgcolor="$HTML_table_bgcolor" BORDER="$HTML_table_border" CELLPADDING="$HTML_table_cellpadding" CELLSPACING="$HTML_table_cellspacing" WIDTH="$HTML_table_width"
SUMMARY="This table contains links to images for all the different forecast
hours for this model.">
<CAPTION ALIGN="center" VALIGN="center" COLSPAN="$colnm">
 <H2><FONT FACE="arial" size="-1">
  [<A HREF=\"model_${siz}.shtml\">Surface GFS Graphics</a>][${opst}]
 </FONT></H2>
</CAPTION>
<TR BGCOLOR="#ccccff" ALIGN="center">
<TH WIDTH="4%">&nbsp;</TH>
ENDOFTEXT

  if ($DEBUG > 1) { print "Leaving do_main_hd2.\n"; }
  return;
}

############################################################################
#########################################################################
# Creating header for model html page
sub do_main_hdr {

  if ($DEBUG > 1) { print "Entering do_main_hdr...\n"; }

  print MFF <<"ENDOFTEXT";
<HTML>
<HEAD>
<TITLE>NCEP ${title} Model Forecasts</TITLE>
</HEAD>
<BODY">
<CENTER>
<H2><font face="arial">${HTML_website_title}<br>${title} ${cycle} UTC </font></H2>
ENDOFTEXT

$opst="";
if ($model =~ "gfs") {
    $opst="Surface GFS Graphics";
print MFF << "ENDOFTEXT";
<TABLE bgcolor="$HTML_table_bgcolor" BORDER="$HTML_table_border" CELLPADDING="$HTML_table_cellpadding"
CELLSPACING="$HTML_table_cellspacing" WIDTH="$HTML_table_width"
SUMMARY="This table contains links to images for all the different forecast
hours for this model.">
<CAPTION ALIGN="center" VALIGN="center" COLSPAN="$colnm">
 <H2><FONT FACE="arial" size="-1">
  [${opst}][<A HREF=\"model_${siz}u.shtml\">Upper Air GFS Graphics</a>]
 </FONT></H2>
</CAPTION>
<TR BGCOLOR="#ccccff" ALIGN="center">
<TH WIDTH="4%">&nbsp;</TH>
ENDOFTEXT
}

else {
print MFF << "ENDOFTEXT";
<TABLE bgcolor="$HTML_table_bgcolor" BORDER="$HTML_table_border" CELLPADDING="$HTML_table_cellpadding"
CELLSPACING="$HTML_table_cellspacing" WIDTH="$HTML_table_width"
SUMMARY="This table contains links to images for all the different forecast
hours for this model.">
<CAPTION ALIGN="center" VALIGN="center" COLSPAN="$colnm">
 <H2><FONT FACE="arial" size="-1">
</CAPTION>
<TR BGCOLOR="#ccccff" ALIGN="center">
<TH WIDTH="4%">&nbsp;</TH>
ENDOFTEXT
}

if ($model =~ "sto") {
print MFF << "ENDOF2";
<P ALIGN="LEFT">
<B> Go to $unregion
<A HREF="../../../${unmod}/storm_1/00/index_${unmod}page.shtml"> hurricane </A>graphics
<BR></P>
ENDOF2
}

  if ($DEBUG > 1) { print "Leaving do_main_hdr.\n"; }
  return;
}
#########################################################################
############################################################################
########################################################################
# Creating header for model html page
sub do_stat_pge {
  print " Entering static_page \n";
  if ($DEBUG > 1) { print "Entering do_stat_pge...\n"; }
$ofile="$modhtms/model_${siz}.shtml";
print " opening MFF ";
open (MFF, ">${ofile}");

  print MFF <<"ENDOFTEXT";

<HTML>
<HEAD>
<TITLE>NCEP ${title} Model Forecasts</TITLE>
</HEAD>
<BODY">
<CENTER>
<H2><font face="arial">${HTML_website_title}<br>${regtitle} ${cycle} UTC ${title}</font></H2>
<TABLE bgcolor="$HTML_table_bgcolor" BORDER="$HTML_table_border" CELLPADDING="$HTML_table_cellpadding"
CELLSPACING="$HTML_table_cellspacing" WIDTH="$HTML_table_width"
SUMMARY="This table contains links to images for all the different forecast
hours for this model.">
<BR><BR>
<H2> WRF $modtpe preempted by the hurricane model.  No WRF $modtpe graphics available for this hour</h2>
<CAPTION ALIGN="center" VALIGN="center" COLSPAN="$colnm">
 <H2><FONT FACE="arial" size="-1">
<TABLE bgcolor="$HTML_table_bgcolor" BORDER="$HTML_table_border" CELLPADDING="$HTML_table_cellpadding"
CELLSPACING="$HTML_table_cellspacing" WIDTH="$HTML_table_width"
SUMMARY="This table contains links to images for all the different forecast
hours for this model.">
<CAPTION ALIGN="center" VALIGN="center" COLSPAN="$colnm">
 <H2><FONT FACE="arial" size="-1">
</CAPTION>
<TR BGCOLOR="#ccccff" ALIGN="center">
ENDOFTEXT
print MFF "</tr></TABLE>";
print MFF "</BODY></HTML>\n";
close MFF;

  if ($DEBUG > 1) { print "Leaving do_stat_pge.\n"; }
  return;
}

############################################################################
#########################################################################
# Creating header for 4-panel graphics html page
sub do_fp_hdr {

  if ($DEBUG > 1) { print "Entering do_fp_hdr...\n"; }

 print FPC <<"ENDOFTEXT";
<HTML>
<HEAD>
<TITLE>NCEP ${title} Model Forecasts</TITLE>
</HEAD>
<BODY><CENTER>
<H2 ALIGN="CENTER"><font face="arial">${HTML_website_title}<br>${regtitle} ${cycle} UTC ${title}</font></H2>
ENDOFTEXT

print FPC << "ENDOFTEXT";
<TABLE bgcolor="$HTML_table_bgcolor" BORDER="$HTML_table_border" CELLPADDING="$HTML_table_cellpadding" CELLSPACING="$HTML_table_cellspacing"
SUMMARY="This table contains links to the different 4-panel charts produced for this model.">
<CAPTION ALIGN="center" VALIGN="center" COLSPAN="3">
 <FONT FACE="arial">
  <B>4 Panel Charts</B>
 </FONT>
</CAPTION>
ENDOFTEXT

  if ($DEBUG > 1) { print "Leaving do_fp_hdr.\n"; }
  return;
}

#########################################################################
#########################################################################
# Creating header for 2-panel graphics html page
sub do_tp_hdr {

  if ($DEBUG > 1) { print "Entering do_tp_hdr...\n"; }

 print TPC <<"ENDOFTEXT";
<HTML>
<HEAD>
<TITLE>NCEP ${title} Model Forecasts</TITLE>
</HEAD>
<BODY><CENTER>
<H2 ALIGN="CENTER"><font face="arial">${HTML_website_title}<br>${regtitle} ${cycle} UTC ${title}</font></H2>
ENDOFTEXT

print TPC << "ENDOFTEXT";
<TABLE bgcolor="$HTML_table_bgcolor" BORDER="$HTML_table_border" CELLPADDING="$HTML_table_cellpadding" CELLSPACING="$HTML_table_cellspacing"
SUMMARY="This table contains links to the different 2-panel charts produced for this model">
<CAPTION ALIGN="center" VALIGN="center" COLSPAN="1">
 <FONT FACE="arial">
  <B>2 Panel Charts</B>
 </FONT>
</CAPTION>
ENDOFTEXT

  if ($DEBUG > 1) { print "Leaving do_tp_hdr.\n"; }
  return;
}

#########################################################################
############################################################################
# Print out column names for all existing files
sub pr_col_name {

  if ($DEBUG > 1) { print "Entering pr_col_name...\n"; }

  $fpcn=@fpcols;    # number of columns in 4 panel chart + 1
  print FPC "<TR BGCOLOR=\"#ccccff\" ALIGN=\"center\">";
  print FPC "<TH><font size=\"-1\">&nbsp;</font></TH>\n";
  for ($i=0;$i<$fpcn;$i++) {
    @cnms=split /:/,$fpcols[$i];
    print FPC "<TH>";
    foreach $cnm (@cnms) {
      print FPC "$table{$cnm}<BR>";
      if ($DEBUG > 1) { print "pr_col_name: table{cnm} = $table{$cnm}...\n"; }
    }
    print FPC "</TH>";
  }
  print FPC "</TR>\n";
  if($clnv != 0 )
  {
     $prc=int (96/$clnv);
  }
  else
  {
     if ($DEBUG > 1) { print "clvn = $clvn.  Therefore no images in GIF dir\n"; }  
  }
  if ($model =~ "gens" ) { 
     $prc=5;
  }
  if ( ${model} =~ "gfs" ) {
     $prc=5 ; 
  }

  if($model =~ "sto" ) {
     print TPC "<TR BGCOLOR=\"#ccccff\" ALIGN=\"center\">";
     print TPC "<TH WIDTH=\"$prc\">&nbsp;</TH>";
  }


  for ($i=$cln2;$i<$clnv;$i++) {
    print MFF "<TH WIDTH=\"$prc%\"><font size=\"-1\">$cln1[$i]</font></TH>\n";
    if ($model =~ "sto") {
       print TPC "<TH WIDTH=\"$prc%\"><font size=\"-1\">$cln1[$i]</font></TH>\n";
    }
  }
  print MFF "</TR>\n";
  if ($model =~ "sto") {
     print TPC "</TR>\n";
  }

  if ($DEBUG > 1) { print "Leaving pr_col_name.\n"; }
  return;
}
#########################################################################
############################################################################
# Print out embedded column names
sub pr_col_name2 {

  if ($DEBUG > 1) { print "Entering pr_col_name2...\n"; }

  $fpcn=@fpcols;    # number of columns in 4 panel chart + 1
  print MFF "<TR BGCOLOR=\"#ccccff\" ALIGN=\"center\">";
  print MFF "<TH WIDTH=\"$prc%\" bgcolor=\"#ccccff\"><font size=\"-1\">&nbsp;</font></TH>\n";
  $prc=int (96/$clnv);
  if ($model =~ "gens") {
     $prc=5;
  }
  for ($i=$cln2;$i<$clnv;$i++) {
    print MFF "<TH WIDTH=\"$prc%\"><font size=\"-1\">$cln1[$i]</font></TH>\n";
    if ($DEBUG > 1) { print "pr_col_name2: cln1[i] = $cln1[$i] \n";}
  }
  print MFF "</TR>\n";

  if ($DEBUG > 1) { print "Leaving pr_col_name2.\n"; }
  return;
}
#########################################################################
# Print out embedded column names
sub pr_col_nam22 {

  if ($DEBUG > 1) { print "Entering pr_col_nam22...\n"; }

  $fpcn=@fpcols;    # number of columns in 4 panel chart + 1
  print MF2 "<TR BGCOLOR=\"#ccccff\" ALIGN=\"center\">";
  print MF2 "<TH WIDTH=\"$prc%\" bgcolor=\"#ccccff\"><font size=\"-1\">&nbsp;</font></TH>\n";
  $prc=int (96/$clnv);
  for ($i=0;$i<$sidx_sfc;$i++) {
    print MF2 "<TH WIDTH=\"$prc%\"><font size=\"-1\">$cln1[$i]</font></TH>\n";
    if ($DEBUG > 1) { print "pr_col_nam22: cln1[i] = $cln1[$i]\n";}
  }
  print MF2 "</TR>\n";

  if ($DEBUG > 1) { print "Leaving pr_col_nam22.\n"; }
  return;
} 
########################################################################
# Print out column names for all existing files
sub pr_col_nam2 {

  if ($DEBUG > 1) { print "Entering pr_col_nam2...\n"; }

  $prc=int (96/$clnv);
  for ($i=0;$i<$sidx_sfc;$i++) {
    print MF2 "<TH WIDTH=\"$prc%\"><font size=\"-1\">$cln1[$i]</font></TH>\n";
  }
  print MF2 "</TR>\n";

  if ($DEBUG > 1) { print "Leaving pr_col_nam2.\n"; }
  return;
}
############################################################################
#########################################################################
# The get_fp_vars routine checks the file fpdef for four panel definitions.
# Each definition describes what columns should be included in each
# four panel display. Valid definitions contain four entries that are
# colon separated and are all contained within the $cln variable.
# @fields is the array that contains all valid definitions, colon-delimited.
sub get_fp_vars {

  if ($DEBUG > 1) { print "Entering get_fp_vars...\n"; }

  $j=0;
  open (FPD, "<$fpdef");
  while (<FPD>) {
    chomp;
    $bad=0;
    @fields=split /:/;
    for ($i=0;$i<=$#days;$i++) {
      if ($cln !~ /$fields[$i]/) { $bad=1; }
    }
    if ($bad == 0) { $fpcols[$j++] = $_; }
  }

  if ($DEBUG > 1) { print "Leaving get_fp_vars.\n"; }
  return;
}

#########################################################################
############################################################################
# Generate the content of the main RTMA page
sub gen_body_rtma {

  if ($DEBUG > 1) { print "Entering gen_body_rtma...\n"; }

  $bgc=0;           # set background to 0
                    # $bgc keeps alternating between 0 and 1 and determines
                    # the background color for any particular row.

  # open and read the map backgrounds table
  open (RTR, "<$fixgem/rtma_regions.tbl") || die "Error opening $fixgem/rtma_regions.tbl: $!.\n";
  while (<RTR>) {
    chomp;
    if (/GAREA/) {
      /(\w+)\W+(.*?)\s*GAREA/;
      $bgnames{$1}="$2";
    }
  }
  close RTR || die "Error closing $fixgem/rtma_regions.tbl $!.\n";

  # j loops through all of the map backgrounds
  for ( $j=0; $j<$tsnv; $j++ ) {
    $tsn=$tsn[$j];
    if ($bgc == 0) {
      print MFF "<TR ALIGN=\"center\" BGCOLOR=\"#00ffff\">\n";
      $bgc=1;
    }
    else {
      print MFF "<TR ALIGN=\"center\" BGCOLOR=\"#ffffff\">\n";
      $bgc=0;
    }
    print MFF "<TD>$bgnames{$tsn}</TD>\n";

    # i loops through all of the column headings
    for ( $i=$cln2; $i<$clnv; $i++ ) {
      $cln=$cln[$i];
      $flnm2="${model}_${cln}_${tsn}${siz}.gif";
      if (-e "$modgifs/$flnm2") {
          print MFF "<TD><A TITLE=\"Image of the $cln1[$i] for map background $bgnames{$tsn} during the ";
          print MFF "$cycle UTC run of the RTMA.\" HREF=\"$imagedir/$flnm2\">Image</A></TD>\n";
      }
      else {
          print MFF "<TD>N/A</TD>\n";
      }
    }
    print MFF "</TR>\n";

  }
  print MFF "</TABLE>\n</BODY>\n</HTML>";
  close MFF;

  if ($DEBUG > 1) { print "Leaving gen_body_rtma.\n"; }
  return;
}

############################################################################
#########################################################################
# Generate the content of the main and 4-panel pages
sub gen_body {

  if ($DEBUG > 1) { print "Entering gen_body...\n"; }

  $bgc=0;           # set background to 0
                    # $bgc keeps alternating between 0 and 1 and determines
                    # the background color for any particular row.
  $day=0;           # $day keeps track of the day we're looking at, 
                    # starting with 0 at 0Z

  $j=0;             # j goes through all time steps that are given in tsn

  #RRomero# Begin printing the HTML row containing the "loop" links.
  print MFF "<TR ALIGN=\"center\" BGCOLOR=\"#ffffff\">\n";
  print MFF "<TH BGCOLOR=\"#ccccff\"><font size=\"-1\">&nbsp;</font></th>\n";
  for ( $i=$cln2;$i<$clnv;$i++ ) {
    $cln=$cln[$i];
    $flnm2="${model}_";
    $strm=substr($flnm2,0,3);
    #print " strm is $strm";
    if($strm =~ "sto" ) {
      $region=$ENV{REGION};
      if($region =~ /hur/)
         {
          $flnm2="hur_";
         }
      if($region =~ /hwrf/)
         {
          $flnm2="hwrf_";
         }
    }
    $flnm2="${flnm2}${cln}_";
    $looplistfilename = "${looplistdir}/${cln}_${siz}_loop.list";
    $loophtml="${cln}_${siz}_loop.shtml";
    $loophtmlindex="index_${cln}_${siz}_loop.shtml";
    if ($DEBUG > 1) {
      print <<ENDOFTEXT;
cln=$cln
siz=$siz
flnm2=$flnm2
loophtml=$loophtml
ENDOFTEXT
    }

    # Create the loop html index file if it doesn't already exist.
    #if ( ! -e $loophtmlindex ) {
      &createLoopHTMLIndex($modhtms, $loophtml, $loophtmlindex, $model);
    #}

    # Create the loop html file if it doesn't already exist.
    #if ( ! -e $loophtml ) {
      &createLoopHTML($modhtms, $loophtml, $looplistfilename, $cycle, $model, $cln, $siz);
    #}

    # Print the table data cells with the links.
    print MFF "<TD>";
    print MFF "<A TITLE=\"Image loop for the $table{$cln} for the ";
    print MFF "$cycle UTC $model model.\" HREF=\"$loophtmlindex\"><font size=-1>Loop</font></A>";
    print MFF "</TD>\n";
  }
  print MFF "</TR>\n";
  if ($model =~ "sto") {
     print TPC "</TR>\n";
  }
  #RRomero# End printing the HTML row containing the "loop" links.


  while ($j < $tsnv) {
    $stepcnt=0;   # stepcnt keeps track of how many steps we have in each day

    while (($tsn[$j] <= $day*24) && ($j < $tsnv) ) {
      unshift @hrofday, $tsn[$j];
      $j++;
      $stepcnt++;
    }

    if ($DEBUG > 1) { print "  hrofday=@hrofday\n"; }
    if ($DEBUG > 1) { print "  j=$j, tsnv=$tsnv, stepcnt=$stepcnt\n"; }

    # @hrofday contains the number of hours within the day
    # given by $day, starting with day 0 (initial).
    for ($n = 0; $n < $stepcnt; $n++) {

      $tstp = pop @hrofday;
      if ($DEBUG > 1) { print "  tstp=$tstp\n"; }

      if ($bgc == 0) {
        print MFF "<TR ALIGN=\"center\" BGCOLOR=\"#00ffff\">\n";
        print FPC "<TR ALIGN=\"center\" BGCOLOR=\"#00ffff\">\n";
        if ($model =~ "sto") {
          print TPC "<TR ALIGN=\"center\" BGCOLOR=\"#00ffff\">\n";
        }
        $bgc=1;
      }

      else {
        print MFF "<TR ALIGN=\"center\" BGCOLOR=\"#ffffff\">\n";
        print FPC "<TR ALIGN=\"center\" BGCOLOR=\"#ffffff\">\n";
        if ($model =~ "sto") {
           print TPC "<TR ALIGN=\"center\" BGCOLOR=\"#ffffff\">\n";
        }
        $bgc=0;
      }

      if ($tstp == 0) {
        print MFF "<TH align=\"left\" BGCOLOR=\"#ccccff\"><font size=\"-1\"><B>Initial</B></font></TH>\n";
        print FPC "<TH align=\"left\" BGCOLOR=\"#ccccff\"><font size=\"-1\"><B>Initial</B></font></TH>\n";
        if ($model =~ "sto") {
          print TPC "<TH align=\"left\" BGCOLOR=\"#ccccff\"><font size=\"-1\"><B>Initial</B></font></TH>\n";
        }
      }

      if ($n == 0 && $tstp != 0) {
        print MFF "<TH align=\"left\" BGCOLOR=\"#ccccff\" ROWSPAN=\"${stepcnt}\" nowrap=\"true\">";
        print MFF "<font size=\"-1\"><B>Day ${day}</B></font></TH>\n";
        print FPC "<TH align=\"left\" BGCOLOR=\"#ccccff\" ROWSPAN=\"${stepcnt}\" nowrap=\"true\">";
        print FPC "<B>Day ${day}</B></TH>\n";
        if ($model =~ "sto") {
        print TPC "<TH align=\"left\" BGCOLOR=\"#ccccff\" ROWSPAN=\"${stepcnt}\" nowrap=\"true\">";
        print TPC "<font size=\"-1\"><B>Day ${day}</B></font></TH>\n";
        }
      }

      #RRomero#
      for ($i = $cln2; $i < $clnv; $i++) {
        print MFF "<TD>";
        if ( $model =~ "sto") {
           print TPC "<TD>";
        }
        $cln = $cln[$i];
        $flnm2 = "${model}_";
        $strm=substr($flnm2,0,3);
        if($strm =~ "sto" ) {
           $region=$ENV{REGION};
           if($region =~ /hur/)
              {
               $flnm2="hur_";
              }
           if($region =~ /hwrf/)
              {
               $flnm2="hwrf_";
              }
        }
        $flnm2 = "${flnm2}${cln}_";
       ## $looplist = "${DATA}/web/output/loop_lists/${cln}_${siz}_loop.list";
        $looplist = "${modhtms}/${looplistdir}/${cln}_${siz}_loop.list";
        $flnm2 = "${flnm2}${tstp}${siz}.gif";
        if ($DEBUG > 1) {
          print <<"ENDOFTEXT";
    cln2=$cln2
    clnv=$clnv
    cln=$cln[$i]
    flnm2=${model}_
    $strm=substr($flnm2,0,3);
    #print " strm is $strm";
    if($strm =~ "sto" ) {
       $region=$ENV{REGION};
       if($region =~ /hur/)
          {
           $flnm2="hur_";
          }
       if($region =~ /hwrf/)
          {
           $flnm2="hwrf_";
          }
    }
    flnm2=${flnm2}${cln}_
    flnm2=${flnm2}${tstp}${siz}.gif
###    GIF File: $basep$gifdir/$flnm2 --Zhu
    GIF File: $modgifs/$flnm2
    looplist: $looplist
ENDOFTEXT
        }

        if ( $j == 1 && -e $looplist ) {
          if ($DEBUG > 0) { print "  Deleting previous loop image listing file $looplist.\n"; }
          if ($DEBUG > 0) { print "  Running \"rm -f $looplist\".\n"; }
          #system("rm -f $looplist");
          unlink($looplist) || die "Error deleting $looplist: $!\n";
        }

        if ( $DEBUG > 0 ) { print "Fully qualified GIF filename: $basep$gifdir/$flnm2\n"; }
        ###if (-e "$basep$gifdir/$flnm2") { --Zhu  
	if (-e "$modgifs/$flnm2") {

          #RRomero# Begin open and write this image to the loop file list.
          open (LOOPLIST, ">> $looplist") || die "Error opening $looplist: $!\n";
          print LOOPLIST "$imagedir/$flnm2\n";
          #RR#TESTING PURPOSES#print LOOPLIST "/pmb/nw${envir}/analysis/namer/$gifdir/$flnm2\n";
          close LOOPLIST || die "Error closing $looplist: $!\n";
          #RRomero# End open and write this image to the loop file list.

          print MFF "<A TITLE=\"Image of the $tstp forecast hour $table{$cln} for the ";
          print MFF "$cycle UTC $model model.\" HREF=\"$imagedir/$flnm2\">$tstp</A>";
          if($model =~ "sto" ) {
            print TPC "<A TITLE=\"Image of the $tstp forecast hour $table{$cln} for the ";
            print TPC "$cycle UTC $model model.\" HREF=\"tp${i}_${tstp}.shtml\">$tstp</A>";
          }
        }
        else {
          print MFF "<FONT SIZE=\"-2\"><i>$tstp</i></FONT>";
          if($model =~ "sto" ) {
            print TPC "<FONT SIZE=\"-2\"><i>$tstp</i></FONT>";
          }
        }
        print MFF "</TD>\n";
        if($model =~ "sto" ) {
          print TPC "</TD>\n";
        }
      }

      # Print all appropriate columns on the 4-panel page
      #print "$fpcn\n";
      for ($i=0;$i<$fpcn;$i++) {
        print FPC "<TD>";
        print FPC "<A TITLE=\"Link to the 4-panel chart for the $tstp forecast hour of";
        print FPC " the $cycle UTC $model model showing ";
        @cnms=split /:/,$fpcols[$i];
        foreach $cnm (@cnms) {
          print FPC "$table{$cnm}, ";
        }
        print FPC ".\" HREF=\"fp${i}_${tstp}.shtml\"><B>$tstp</B></A>";
        print FPC "</TD>";
        build_fp_page($i,$tstp);
      }

      print MFF "</TR>";
      print FPC "</TR>";
      if ($model =~ "sto") {
         print TPC "</TR>";
      }
    }
#    $day++;
    if ($day == 5)  {
       pr_col_name2;
    }
    if ($day == 9)  {
       pr_col_name2;
    }
    $day++;
  }

########################################################################
# If model is ruc, do not build the "4-Panel Charts (Hours)" section 
# in the model_[s/m/l].shtml ruc html page
######################################################################## 
if ($model !~ /ruc/)
{
  print MFF "<TR ALIGN=\"center\" BGCOLOR=\"#0a2390\">\n";
  print MFF "<TH COLSPAN=\"$colnm\"><FONT FACE=\"arial\" COLOR=\"white\">\n";
  print MFF "4-Panel Charts (Hours)</FONT></TH>\n</TR>\n";

  # Print out column names for all existing files
  print MFF "<TR BGCOLOR=\"#ccccff\" ALIGN=\"center\">\n";
  print MFF "<TH><font face=\"arial\" size=\"-1\">&nbsp;</font></TH>\n";
  for ($i=$cln2;$i<$clnv;$i++) {
    print MFF "<TH><font face=\"arial\" size=\"-1\">$cln1[$i]</font></TH>\n";
  }
  print MFF "</TR>\n";

  print MFF "<TR ALIGN=\"center\">\n";
  #$csp=int ($tsnv/4.0) + 1;
  #print MFF "<TD BGCOLOR=\"#ccccff\" ROWSPAN=\"$csp\">\n";
  #print MFF "&nbsp;\n";
  $i=0;
  while (1) {
    $fpday=(($tsn[$i]/24.0) - (int ($tsn[$i]/24.0)) > 0 ? (int ($tsn[$i]/24.0)) + 2 : (int $tsn[$i]/24.0)+1);
    if ($model =~ /hiresw/) {
        $fpday =  int($tsn[$i]/24.) + 1 ;
        if ($tsn[$i] >= 48.){
            $fpday = 2 ;
        }
    }

    if ($model =~ /mrf/) {
      print MFF "<TH align=\"left\" BGCOLOR=\"#ccccff\" nowrap=\"true\"><font size=\"-1\">Day $fpday</font></TH>\n";
    }
    else {
      print MFF "<TH align=\"left\" BGCOLOR=\"#ccccff\" nowrap=\"true\"><font size=\"-1\">Day $fpday</font></TH>\n";
    }
    $cnt=0;
    @fprow=();
    $slc=0; # count off at most four images at a time
    while ($cnt < 4 && $i < $tsnv) {
       #print "$tsn[$i] ";
      push @fprow, $tsn[$i++];
      $cnt++;
    }

    # @fprows now contains the panels that are to be shown

#    print MFF "<TD>\n";
    $low=$fprow[0];
    $high=$fprow[$cnt-1];
#    print "low=$low high=$high\n";
    for ($j=$cln2;$j<$clnv;$j++) {
      @slices=@fprow;
      $flnm3="${model}_$cln[$j]${low}${high}_${siz}.shtml";
      print MFF "<TD bgcolor=\"#ffffff\">";
      if ($model =~ /hiresw/ || $model =~ /stor/ ) {
          print MFF "<A HREF=\"$hrf/${region}/$htmdir/$flnm3\">$low-$high</A>";
      }
      elsif ($low !~ /$high/) {
         if ( ( ( $high =~ "018" || $high =~ "036" ) && $cln[$j] =~ /p12|p24|p36|p48|p60/ ) ||
              ( $high =~ "042" && $cln[$j] =~ /p36|p48|p60/ ) ||
              ( $high =~ "066" && $cln[$j] =~ /p60/ ) ||
              ( $high =~ "084" && $cln[$j] =~ /p60/ && $model !~ /nam/ ) ) {
             print MFF "<FONT SIZE=-1><I>$low-$high</I></FONT>";
         }
         else {
             print MFF "<A HREF=\"$hrf/${region}/$htmdir/$flnm3\">$low-$high</A>";
         }
      }
      else {
        print MFF "<A HREF=\"$hrf/${region}/$htmdir/$flnm3\">$low Hour</A>";
      }
      print MFF "</TD>\n";

      if ($j > 0 && $j%($clnv-1) == 0) {
        print MFF "</TR>\n<TR align=\"center\">";
      }

      open (FPV, ">$modhtms/$flnm3");
      print FPV "<HTML><TABLE bgcolor=\"$HTML_table_bgcolor\" BORDER=\"$HTML_table_border\" CELLSPACING=\"$HTML_table_cellspacing\" CELLPADDING=\"$HTML_table_cellpadding\">";
      print FPV "\n<TR>\n";

      for ($m=0;$m<$cnt;$m++) {
        $crow=shift @slices;
        $flnm4="${mod}_$cln[$j]_${crow}${siz}.gif";
        #print "--$modgifs/$flnm4\n";
        #print "\$i=$i \$j=$j\n";
        if (-e "$modgifs/$flnm4") {
          #print "found\n";
          print FPV "<TD BGCOLOR=\"white\"><CENTER><H1><B>$title $cycle ";
          print FPV "UTC - $fprow[$m] Hours</B></H1></CENTER>";
          print FPV "<IMG SRC=\"$hrf/${region}/$gifdir/$flnm4\"></TD>\n";
        }
        else {
          print FPV "<TD><H1><B>N/A</B></H1></TD>\n";
        }
        if ($m > 0 && $m%2!=0) {
          print FPV "</TR><TR>\n";
        }
      }

      print FPV "</TR>\n</TABLE>\n</body>\n</HTML>";
      close FPV;
    }
    last if ($i >= $tsnv);
  }

}

  @ctime=localtime(time);
  $ctime[4]++;
  if ($ctime[2] < 10) { $ctime[2]="0$ctime[2]"; }
  if ($ctime[1] < 10) { $ctime[1]="0$ctime[1]"; }
  print MFF "</tr></TABLE>";
  print MFF "\n</BODY>\n</HTML>";
  close MFF;
  print FPC "</tr></TABLE>";
  print FPC "</BODY></HTML>\n";
  close FPC;

  if ($model =~ "stor") {
     print TPC "</tr></TABLE>";
     print TPC "</BODY></HTML>\n";
     close TPC;
  }

  if ($DEBUG > 1) { print "Leaving gen_body.\n"; }
  return;
}
#########################################################################

# Generate the content of the main/4-panel pages
sub gen_bod2 {

  if ($DEBUG > 1) { print "Entering gen_bod2...\n"; }

  $bgc=0;           # set background to 0
                    # $bgc keeps alternating between 0 and 1 and determines
                    # the background color for any particular row.
#  print MF2 "<TD>&nbsp;</TD>\n";
  $day=0;           # $day keeps track of the day we're looking at, 
                    # starting with 0 at 0Z

  $j=0;             # j goes through all time steps that are given in tsn
  $colnm=11;

  #RRomero# Begin printing the HTML row containing the "loop" links.
  print MF2 "<TR ALIGN=\"center\" BGCOLOR=\"#ffffff\">\n";
  print MF2 "<TH BGCOLOR=\"#ccccff\"><font size=\"-1\">&nbsp;</font></th>\n";
  for ( $i=0;$i<$sidx_sfc;$i++ ) {
    $cln=$cln[$i];
    $flnm2="${model}_";
    $flnm2="${flnm2}${cln}_";
    $looplistfilename = "${looplistdir}/${cln}_${siz}u_loop.list";
    $loophtml="${cln}_${siz}u_loop.shtml";
    $loophtmlindex="index_${cln}_${siz}u_loop.shtml";
    if ($DEBUG > 1) {
      print <<ENDOFTEXT;
      cln=$cln
      siz=$siz
      flnm2=$flnm2
      loophtml=$loophtml
ENDOFTEXT
    }

    # Create the loop html index file if it doesn't already exist.
    #if ( ! -e $loophtmlindex ) {
      &createLoopHTMLIndex($modhtms, $loophtml, $loophtmlindex, $model);
    #}

    # Create the loop html file if it doesn't already exist.
    #if ( ! -e $loophtml ) {
      &createLoopHTML($modhtms, $loophtml, $looplistfilename, $cycle, $model, $cln, $siz);
    #}

    # Print the table data cells with the links.
    print MF2 "<TD>";
    print MF2 "<A TITLE=\"Image loop for the $table{$cln} for the ";
    print MF2 "$cycle UTC $model model.\" HREF=\"$loophtmlindex\"><font size=-1>Loop</font></A>";
    print MF2 "</TD>\n";
  }
  print MF2 "</TR>\n";
  #RRomero# End printing the HTML row containing the "loop" links.
        
  while ( $j < $tsnv) {
                    # stepcnt keeps track of how many steps we have in each
                    # day
    $stepcnt=0;

    while ( ($tsn[$j] <= $day*24) && ($j < $tsnv) ) {
      unshift @hrofday, $tsn[$j];
      $j++;
      $stepcnt++;
    }
                    # @hrofday contains the number of hours within the day
                    # given by $day, starting with day 0 (initial).

    for ($n=0;$n<$stepcnt;$n++) {

      $tstp=pop @hrofday;

      if ($bgc==0) {
        print MF2 "<TR ALIGN=\"center\" BGCOLOR=\"#00ffff\">\n";
        $bgc=1;
      }

      else {
        print MF2 "<TR ALIGN=\"center\" BGCOLOR=\"#ffffff\">\n";
        $bgc=0;
      }

      if ( $tstp == 0) {
        print MF2 "<TH align=\"left\" BGCOLOR=\"#ccccff\"><font size=\"-1\"><B>Initial</B></font></TH>\n";
      }

      if ($n==0 && $tstp != 0) {
        print MF2 "<TH align=\"left\" BGCOLOR=\"#ccccff\" ROWSPAN=\"${stepcnt}\" nowrap=\"true\">";
        print MF2 "<font size=\"-1\"><B>Day ${day}</B></font></TH>\n";
      }

      #RRomero#
      for ($i = 0; $i < $sidx_sfc; $i++) {
        $cln = $cln[$i];
        $flnm2 = "${model}_";
        $flnm2 = "${flnm2}${cln}_";
       ## $looplist = "${DATA}/web/output/loop_lists/${cln}_${siz}u_loop.list";
        $looplist = "${modhtms}/${looplistdir}/${cln}_${siz}u_loop.list";
        $flnm2 = "${flnm2}${tstp}${siz}.gif";
        if ($DEBUG > 1) {
          print <<"ENDOFTEXT";
    cln2=$cln2
    clnv=$clnv
    cln=$cln[$i]
    flnm2=${model}_
    flnm2=${flnm2}${cln}_
    flnm2=${flnm2}${tstp}${siz}.gif
    GIF File: $modgifs/$flnm2
    looplist: $looplist
ENDOFTEXT
        }

      if ( $j == 1 && -e $looplist ) {
       if ($DEBUG > 0) { print "  Deleting previous loop image listing file $looplist.\n"; }
       if ($DEBUG > 0) { print "  Running \"rm -f $looplist\".\n"; }
       #system("rm -f $looplist");
       unlink($looplist) || die "Error deleting $looplist: $!\n";
      }
    } 
      # Print all appropriate columns on the main page
      for ($i=0;$i<$sidx_sfc;$i++) {
        print MF2 "<TD>";
        $cln=$cln[$i];
        $flnm2="${model}_";
        $flnm2="${flnm2}${cln}_";
        $flnm2="${flnm2}${tstp}${siz}.gif";
        $looplist = "${modhtms}/${looplistdir}/${cln}_${siz}u_loop.list";
        if ($DEBUG > 0) {
          print <<"ENDOFTEXT";
    clnv=$clnv
    cln=$cln[$i]
    flnm2=${model}_
    flnm2=${flnm2}${cln}_
    flnm2=${flnm2}${tstp}${siz}.gif
    GIF File: $modgifs/$flnm2
    looplist: $looplist
ENDOFTEXT
        }

        #print "$basep/$gifdir/$flnm2\n";
        ###if (-e "$basep/$gifdir/$flnm2") { --Zhu
        if (-e "$modgifs/$flnm2") {

          #RRomero# Begin open and write this image to the loop file list.
          open (LOOPLIST, ">> $looplist") || die "Error opening $looplist: $!\n";
          print LOOPLIST "$imagedir/$flnm2\n";
          #RR#TESTING PURPOSES#print LOOPLIST "/pmb/nw${envir}/analysis/namer/$gifdir/$flnm2\n";
          close LOOPLIST || die "Error closing $looplist: $!\n";
          #RRomero# End open and write this image to the loop file list.

          print MF2 "<A TITLE=\"Image of the $tstp forecast hour $table{$cln} for the ";
          print MF2 "$cycle UTC $model model.\" HREF=\"images/$flnm2\">$tstp</A>";
        }
        else {
          print MF2 "<FONT SIZE=-1><I>$tstp</I></FONT>";
        }
        print MF2 "</TD>\n";
      }

      print MF2 "</TR>";
    }
    $day++;
    if ($day == 5)  {
       pr_col_nam22;
    }
    if ($day == 9)  {
       pr_col_nam22;
    }
  }

  print MF2 "<TR ALIGN=\"center\" BGCOLOR=\"#0a2390\">\n";
  print MF2 "<TH COLSPAN=\"$colnm\"><FONT FACE=\"arial\" COLOR=\"white\">\n";
  print MF2 "4-Panel Charts (Hours)</FONT></TH>\n</TR>\n";

  # Print out column names for all existing files
  print MF2 "<TR BGCOLOR=\"#ccccff\" ALIGN=\"center\">\n";
  print MF2 "<TH><font face=\"arial\" size=\"-1\">&nbsp;</font></TH>\n";
  for ($i=0;$i<$sidx_sfc;$i++) {
    print MF2 "<TD><b>$cln1[$i]</b></TD>\n";
  }

  print MF2 "</TR>\n<TR>\n";
  #$csp=int ($tsnv/4.0) + 1;
  #print MF2 "<TD BGCOLOR=\"#ccccff\" ROWSPAN=\"$csp\">\n";
  #print MF2 "&nbsp;\n";

  $i=0;
  while (1) {
    $fpday=(($tsn[$i]/24.0) - (int ($tsn[$i]/24.0)) > 0 ? (int ($tsn[$i]/24.0)) + 2 : (int $tsn[$i]/24.0)+1);
    print MF2 "<TD align=\"left\" BGCOLOR=\"#ccccff\" nowrap=\"true\"><b>Day $fpday</b></TD>\n";
    $cnt=0;
    @fprow=();
    $slc=0; # count off at most four images at a time
    while ($cnt < 4 && $i < $tsnv) {
       #print "@tsn[$i] ";
      push @fprow, $tsn[$i++];
      $cnt++;
    }

    # @fprows now contains the panels that are to be shown

    $low=$fprow[0];
    $high=$fprow[$cnt-1];
    #print "low=$low high=$high\n";
    for ($j=0;$j<$sidx_sfc;$j++) {
      @slices=@fprow;
      $flnm3="${model}_$cln[$j]${low}${high}_${siz}.shtml";
      print MF2 "<TD align=\"center\">";
      if ($low !~ /$high/) {
         if ( ( ( $high =~ "018" || $high =~ "036" ) && $cln[$j] =~ /p12|p24|p36|p48|p60/ ) ||
              ( $high =~ "042" && $cln[$j] =~ /p36|p48|p60/ ) ||
              ( $high =~ "066" && $cln[$j] =~ /p60/ ) ||
              ( $high =~ "084" && $cln[$j] =~ /p60/ && $model !~ /nam/ ) ) {
             print MF2 "<FONT SIZE=-1><I>$low-$high</I></FONT>";
         }
         else {
             print MF2 "<A HREF=\"$hrf/${region}/$htmdir/$flnm3\">$low-$high</A>";
         }
      }
      else {
        print MF2 "<A HREF=\"$hrf/${region}/$htmdir/$flnm3\">$low Hour</A>";
      }
      print MF2 "</TD>\n";

      if ( $j == ($sidx_sfc - 1) ) {
        print MF2 "</TR>\n<TR align=\"center\">";
      }

      open (FP2, ">$modhtms/$flnm3");
      print FP2 "<HTML><TABLE bgcolor=\"$HTML_table_bgcolor\" BORDER=\"$HTML_table_border\" CELLSPACING=\"$HTML_table_cellspacing\" CELLPADDING=\"$HTML_table_cellpadding\">";
      print FP2 "\n<TR>\n";

      for ($m=0;$m<$cnt;$m++) {
        $crow=shift @slices;
        $flnm4="${mod}_$cln[$j]_${crow}${siz}.gif";
        #print "--$modgifs/$flnm4\n";
        #print "\$i=$i \$j=$j\n";
        if (-e "$modgifs/$flnm4") {
          #print "found\n";
          print FP2 "<TD BGCOLOR=\"white\"><CENTER><H1><B>$title $cycle ";
          print FP2 "UTC - $fprow[$m] Hours</B></H1></CENTER>";
          print FP2 "<IMG SRC=\"$hrf/${region}/$gifdir/$flnm4\"></TD>\n";
        }
        else {
          print FP2 "<TD><H1><B>N/A</B></H1></TD>\n";
        }
        if ($m > 0 && $m%2!=0) {
          print FP2 "</TR><TR>\n";
        }
      }

      print FP2 "</TR>\n</TABLE>\n</body>\n</HTML>";
      close FP2;
    }
    last if ($i >= $tsnv);
  }

  @ctime=localtime(time);
  $ctime[4]++;
  if ($ctime[2] < 10) { $ctime[2]="0$ctime[2]"; }
  if ($ctime[1] < 10) { $ctime[1]="0$ctime[1]"; }
  print MF2 "</tr></TABLE>";
  print MF2 "\n</BODY>\n</HTML>";
  close MF2;

  if ($DEBUG > 1) { print "Leaving gen_bod2.\n"; }
  return;
}
#########################################################################
############################################################################

sub build_fp_page {

  if ($DEBUG > 1) { print "Entering build_fp_page...\n"; }

  $cll=$_[0];
  $tmm=$_[1];
  @fields=split /:/, $fpcols[$cll];
  $fname5="$htmltmp/fp${cll}_${tmm}.shtml";
  if ($DEBUG > 1) { 
    print <<"ENDOFTEXT";
  cll = $_[0], tmm = $_[1]
  fields = @fields
  fname5 = $fname5
ENDOFTEXT
  }


  if ($region =~ /epac/ ) {
     $size = "m";
  } else {
     $size = "s";
  }

  open (FPF,">$fname5");
  print FPF <<"ENDOFTEXT";
<HTML><HEAD><TITLE>4-panel chart of
$table{$fields[0]}, $table{$fields[1]}, $table{$fields[2]}, $table{$fields[3]}</TITLE></HEAD>
<BODY BGCOLOR="white">
<CENTER>
<H2>4-panel chart of $table{$fields[0]}, $table{$fields[1]}, $table{$fields[2]}, $table{$fields[3]}</H2>
</CENTER>
<TABLE SUMMARY="This table displays images of 
$table{$fields[0]}, $table{$fields[1]}, $table{$fields[2]}, $table{$fields[3]}"
BORDER="$HTML_table_border" CELLSPACING="$HTML_table_cellspacing" CELLPADDING="$HTML_table_cellpadding" BGCOLOR="$HTML_table_bgcolor">
<TR>
<TD><CENTER><H1>$table{$fields[0]} hour: $tmm</H1></CENTER>
<IMG ALT="image of $table{$fields[0]}" HEIGHT="480" WIDTH="640" SRC="images/${mod}_$fields[0]_${tmm}${size}.gif"></TD>
<TD><CENTER><H1>$table{$fields[1]} hour: $tmm</H1></CENTER>
<IMG ALT="image of $table{$fields[1]}" HEIGHT="480" WIDTH="640" SRC="images/${mod}_$fields[1]_${tmm}${size}.gif"></TD>
</TR><TR>
<TD><CENTER><H1>$table{$fields[2]} hour: $tmm</H1></CENTER>
<IMG ALT="image of $table{$fields[2]}" HEIGHT="480" WIDTH="640" SRC="images/${mod}_$fields[2]_${tmm}${size}.gif"></TD>
<TD><CENTER><H1>$table{$fields[3]} hour: $tmm</H1></CENTER>
<IMG ALT="image of $table{$fields[3]}" HEIGHT="480" WIDTH="640" SRC="images/${mod}_$fields[3]_${tmm}${size}.gif"></TD>
</TR></TABLE>
</BODY></HTML>
ENDOFTEXT

  close FPF;

  if ($DEBUG > 1) { print "Leaving build_fp_page.\n"; }
  return;
}


#########################################################################
############################################################################
sub createLoopHTML {
  my $MYNAME = "createLoopHTML";

  if ($DEBUG > 1) { print "Entering $MYNAME.\n"; }

  my($model_html_dir, $loophtml, $looplistfilename, $cycle, $model, $cln, $siz) = @_;
  if ($DEBUG > 1) {
    print <<"ENDOFTEXT";
      Variables Passed:
        model_html_dir = $model_html_dir
        loophtml = $loophtml
        looplistfilename = $looplistfilename
        cycle = $cycle
        model = $model
        cln = $cln
        siz = $siz
ENDOFTEXT
  }

  #RR#Override for testing purposes
  #RR#$model_html_dir = "${DATA}/web/output";

  $loophtml_full_path = "$model_html_dir/$loophtml";

  open(LOOPHTML, "> $loophtml_full_path") || die "Error opening $loophtml_full_path for writing: $!\n";

  $model = uc $model;

  $caption = "$cycle $model $cln Image Loop";

  print LOOPHTML <<"ENDOFTEXT";
<html>
<head>
</head>
<body>
<table cellpadding="$HTML_table_cellpadding" cellspacing="$HTML_table_cellspacing" border="$HTML_table_border" bgcolor="$HTML_table_bgcolor">
<caption><b>$caption</b></caption>
<tr>
<td>
<applet codebase="$HTML_loop_codebase" archive="$HTML_loop_archive" code="$HTML_loop_code" width="$HTML_loop_image_width" height="$HTML_loop_image_height">
<param name="controls" value="$HTML_loop_param_controls">
<param name="active_zoom" value="$HTML_loop_param_active_zoom">
<param name="backcolor" value="$HTML_loop_param_backcolor">
<param name="forecolor" value="$HTML_loop_param_forecolor">
<param name="pause" value="$HTML_loop_param_pause">
<param name="pause_percent" value="$HTML_loop_param_pause_percent">
<param name="toggle_size" value="$HTML_loop_param_toggle_size">
<param name="file_of_filenames" value="$looplistfilename">
</applet>
</td>
</tr>
</table>
</body>
</html>
ENDOFTEXT

  close(LOOPHTML) || die "Error closing $loophtml_full_path: $!\n";

  if ($DEBUG > 1) { print "Leaving $MYNAME.\n"; }

}
#########################################################################
############################################################################
sub createLoopHTMLIndex {
  my $MYNAME = "createLoopHTMLIndex";

  if ($DEBUG > 1) { print "Entering $MYNAME.\n"; }

  my($model_html_dir, $loophtml, $loophtmlindex, $model) = @_;
  if ($DEBUG > 1) {
    print <<"ENDOFTEXT";
      Variables Passed:
        model_html_dir = $model_html_dir
        loophtml = $loophtml
        loophtmlindex = $loophtmlindex
        model = $model
ENDOFTEXT
  }

  #RR#Override for testing purposes
  #RR#$model_html_dir = "${DATA}/web/output";

  $loophtmlindex_full_path = "$model_html_dir/$loophtmlindex";

  open(LOOPHTMLINDEX, "> $loophtmlindex_full_path") || die "Error opening $loophtmlindex_full_path for writing: $!\n";

  $model = uc $model;

  #NOTE:
  #NOTE: The below HTML implements the NWS corporate web image for the image loop web page.
  #NOTE: DO NOT MODIFY WITHOUT CONSULTING THE NCEP WEBMASTER. 
  #NOTE:
  print LOOPHTMLINDEX <<"ENDOFTEXT";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
  <TITLE>NCEP Model Analyses and Forecasts</TITLE>
  <META http-equiv=Content-Type content="text/html; charset=windows-1252">
  <META content="NCO Web Team" name="GENERATOR">
  <LINK href="/nwscwi/main.css" type="text/css" rel="STYLESHEET">
</HEAD>
<BODY leftMargin="0"
      topMargin="0" rightMargin="0" marginheight="0" marginwidth="0">
<!--#include virtual="/cwi_header.html" -->    <!-- Use virtual include, because this should be in a common place within your DocumentRoot. -->
<TABLE cellSpacing="0" cellPadding="3" width="670" border="0">
  <TBODY>
  <TR vAlign="top">
    <TD vAlign="top" width="540"><A name="contents"></A>
      <a href="http://www.ncep.noaa.gov/">NCEP Home</a> &gt; <a href="/">NCEP Central Operations</a> &gt; <a href="/pmb/">Production Management Branch</a> &gt; <a href="/pmb/nw${envir}/analysis/">Model Analyses and Forecasts</a> &gt; $model<br>
      <!--#include file="$loophtml" -->    <!-- This is the body content file of the current sub-directory. -->
      <TABLE cellSpacing="0" cellPadding="0" width="96%" border="0">
        <TBODY>
        <!--#include virtual="/nco_footer.html" -->  <!-- Use virtual include, because this should be in a common place within your DocumentRoot. -->
        <TR vAlign="top">
          <TD class="gray" colSpan="3">
            Page last modified: <!--#flastmod file="$loophtml" -->  <!-- This should be the same name of the body content file specified above. -->
          </TD>
        </TR>
        </TBODY>
      </TABLE>
    </TD>
  </TR>
  </TBODY>
</TABLE>
</BODY>
</HTML>
ENDOFTEXT

  close(LOOPHTMLINDEX) || die "Error closing $loophtml_full_path: $!\n";

  if ($DEBUG > 1) { print "Leaving $MYNAME.\n"; }
}
############################################################################
#########################################################################
# Generate the content of the main and 4-panel pages
sub gen_body_gens {

  if ($DEBUG > 1) { print "Entering gen_body...\n"; }

  $bgc=0;           # set background to 0
                    # $bgc keeps alternating between 0 and 1 and determines
                    # the background color for any particular row.
  $day=0;           # $day keeps track of the day we're looking at, 
                    # starting with 0 at 0Z

  $j=0;             # j goes through all time steps that are given in tsn

  #RRomero# Begin printing the HTML row containing the "loop" links.
  print MFF "<TR ALIGN=\"center\" BGCOLOR=\"#ffffff\">\n";
  print MFF "<TH BGCOLOR=\"#ccccff\"><font size=\"-1\">&nbsp;</font></th>\n";
  for ( $i=$cln2;$i<$clnv;$i++ ) {
    $cln=$cln[$i];
    $flnm2="${model}_";
    $strm=substr($flnm2,0,3);
    $flnm2="${flnm2}${cln}_";
    $looplistfilename = "${looplistdir}/${cln}_${siz}_loop.list";
    $loophtml="${cln}_${siz}_loop.shtml";
    $loophtmlindex="index_${cln}_${siz}_loop.shtml";
    if ($DEBUG > 1) {
      print <<ENDOFTEXT;
cln=$cln
siz=$siz
flnm2=$flnm2
loophtml=$loophtml
ENDOFTEXT
    }

    # Create the loop html index file if it doesn't already exist.
    #if ( ! -e $loophtmlindex ) {
      &createLoopHTMLIndex($modhtms, $loophtml, $loophtmlindex, $model);
    #}

    # Create the loop html file if it doesn't already exist.
    #if ( ! -e $loophtml ) {
      &createLoopHTML($modhtms, $loophtml, $looplistfilename, $cycle, $model, $cln, $siz);
    #}

    # Print the table data cells with the links.
    print MFF "<TD>";
    print MFF "<A TITLE=\"Image loop for the $table{$cln} for the ";
    print MFF "$cycle UTC $model model.\" HREF=\"$loophtmlindex\"><font size=-1>Loop</font></A>";
    print MFF "</TD>\n";
  }
  print MFF "</TR>\n";
  #RRomero# End printing the HTML row containing the "loop" links.


  while ($j < $tsnv) {
    $stepcnt=0;   # stepcnt keeps track of how many steps we have in each day

    while (($tsn[$j] <= $day*24) && ($j < $tsnv) ) {
      unshift @hrofday, $tsn[$j];
      $j++;
      $stepcnt++;
    }

    if ($DEBUG > 1) { print "  hrofday=@hrofday\n"; }
    if ($DEBUG > 1) { print "  j=$j, tsnv=$tsnv, stepcnt=$stepcnt\n"; }

    # @hrofday contains the number of hours within the day
    # given by $day, starting with day 0 (initial).
    for ($n = 0; $n < $stepcnt; $n++) {

      $tstp = pop @hrofday;
      if ($DEBUG > 1) { print "  tstp=$tstp\n"; }

      if ($bgc == 0) {
        print MFF "<TR ALIGN=\"center\" BGCOLOR=\"#00ffff\">\n";
        $bgc=1;
      }

      else {
        print MFF "<TR ALIGN=\"center\" BGCOLOR=\"#ffffff\">\n";
        $bgc=0;
      }

      if ($tstp == 0) {
        print MFF "<TH align=\"left\" BGCOLOR=\"#ccccff\"><font size=\"-1\"><B>Initial</B></font></TH>\n";
      }

      if ($n == 0 && $tstp != 0) {
        print MFF "<TH align=\"left\" BGCOLOR=\"#ccccff\" ROWSPAN=\"${stepcnt}\" nowrap=\"true\">";
        print MFF "<font size=\"-1\"><B>Day ${day}</B></font></TH>\n";
      }

      #RRomero#
      for ($i = $cln2; $i < $clnv; $i++) {
        print MFF "<TD>";
        $cln = $cln[$i];
        $flnm2 = "${model}_";
        $strm=substr($flnm2,0,3);
        $flnm2 = "${flnm2}${cln}_";
       ## $looplist = "${DATA}/web/output/loop_lists/${cln}_${siz}_loop.list";
        $looplist = "${modhtms}/${looplistdir}/${cln}_${siz}_loop.list";
        $flnm2 = "${flnm2}${tstp}${siz}.gif";
        if ($DEBUG > 1) {
          print <<"ENDOFTEXT";
    cln2=$cln2
    clnv=$clnv
    cln=$cln[$i]
    flnm2=${model}_
    $strm=substr($flnm2,0,3);
    #print " strm is $strm";
    flnm2=${flnm2}${cln}_
    flnm2=${flnm2}${tstp}${siz}.gif
###    GIF File: $basep$gifdir/$flnm2 --Zhu
    GIF File: $modgifs/$flnm2
    looplist: $looplist
ENDOFTEXT
        }

        if ( $j == 1 && -e $looplist ) {
          if ($DEBUG > 0) { print "  Deleting previous loop image listing file $looplist.\n"; }
          if ($DEBUG > 0) { print "  Running \"rm -f $looplist\".\n"; }
          #system("rm -f $looplist");
          unlink($looplist) || die "Error deleting $looplist: $!\n";
        }

        if ( $DEBUG > 0 ) { print "Fully qualified GIF filename: $basep$gifdir/$flnm2\n"; }
        ###if (-e "$basep$gifdir/$flnm2") { --Zhu  
	if (-e "$modgifs/$flnm2") {

          #RRomero# Begin open and write this image to the loop file list.
          open (LOOPLIST, ">> $looplist") || die "Error opening $looplist: $!\n";
          print LOOPLIST "$imagedir/$flnm2\n";
          #RR#TESTING PURPOSES#print LOOPLIST "/pmb/nw${envir}/analysis/namer/$gifdir/$flnm2\n";
          close LOOPLIST || die "Error closing $looplist: $!\n";
          #RRomero# End open and write this image to the loop file list.

          print MFF "<A TITLE=\"Image of the $tstp forecast hour $table{$cln} for the ";
          print MFF "$cycle UTC $model model.\" HREF=\"$imagedir/$flnm2\">$tstp</A>";
        }
        else {
          print MFF "<FONT SIZE=\"-2\"><i>$tstp</i></FONT>";
        }
        print MFF "</TD>\n";
      }

      print MFF "</TR>";
    }
    $day++;
    if ($day == 5)  {
       pr_col_name2;
    }
    if ($day == 9)  {
       pr_col_name2;
    }
  }
}
}
#########################################################################