<?
$pre   = '';
include $pre . 'common.php';
$title = 'Model Display Page';
$logo  = false;
include HEAD;

   $html   = '';
   $output = "app_title,id";
   $tbname = 'models_purg';
   $query  = "SELECT $output FROM $tbname ORDER BY id";
   $result = $db->sql_query($query);
   $html  .= $indent . '<select width="20" name="ind" onChange="nameChange(this.
options[this.selectedIndex].value);">' . "\n";
   $html  .= $indent . '   <option>-----Select One-----</option>'."\n";
   while($row = $db->sql_fetchrow($result)){
      $title = get_paper_title($row[0]);
      $html .= $indent . '   <option ';
      if(strlen($title) > 50){
         $title = substr($title,0,44) . " . . .";
      }

      $sel = (isset($_GET['ind']) && $_GET['ind']==$row[1]) ? 'selected ' : '';

      $html .= $sel . 'value="' . $row[1] . '">' . $title . "</option>\n";
   } // while($row=mysql_fetch_row($result))
   $html .= $indent .  "</select>\n";
   echo $html;

   if( isset($_GET['ind']) ){
      $query  = "SELECT * FROM $tbname WHERE id=" . $_GET['ind'];
      $result = $db->sql_query($query);
      $data   = $db->sql_fetchrow($result);
   }
   
   echo "\n<hr />\n";
if( isset($_GET['ind']) ){
?>
  <table width="100%" border="1">
    <tr>
      <td width="200"><strong>Application</strong></td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td width="200" align="right" valign="top"><strong> Title:</strong></td>
      <td><?=stripslashes($data['app_title'])?></td>
    </tr>
    <tr>
      <td width="200" align="right" valign="top"><strong>Description:</strong></td>
      <td><?=stripslashes($data['app_desc'])?></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td width="200"><strong>Info for  Model Used</strong></td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td width="200" align="right"><strong>Name / Acronym:</strong></td>
      <td><?=stripslashes($data['model_name'])?></td>
    </tr>
    <tr>
      <td width="200" align="right"><strong>Reference:</strong></td>
      <td><?=stripslashes($data['model_reference'])?></td>
    </tr>
    <tr>
      <td width="200" align="right"><strong>Website:</strong></td>
      <td><?=stripslashes($data['model_url'])?></td>
    </tr>
    <tr>
      <td width="200" align="right" valign="top"><strong>Description:</strong></td>
      <td><?=stripslashes($data['model_desc'])?></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td width="200"><strong>Grid</strong></td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td width="200" align="right"><strong>Projection:</strong></td>
      <td><?=stripslashes($data['grid_projection'])?></td>
    </tr>
    <tr>
      <td width="200" align="right" valign="top"><strong>Extent:</strong></td>
      <td><?=stripslashes($data['grid_extent'])?></td>
    </tr>
    <tr>
      <td width="200" align="right"><strong>Vertical Type:</strong></td>
      <td><?=stripslashes($data['vgrid_type'])?> &nbsp; &nbsp;
      <strong> Number of levels: </strong>
      <?=stripslashes($data['vgrid_levels'])?>
      </td>
    </tr>
    <tr>
      <td width="200" align="right"><strong>Horizontal Type:</strong></td>
      <td><?=stripslashes($data['hgrid'])?> &nbsp; &nbsp;
      <strong> Grid Type: </strong>
      <?=stripslashes($data['hgrid_type'])?><br />
      <strong>Min Spacing: </strong>
      <?=stripslashes($data['hgrid_min'])?> &nbsp; &nbsp;
      <strong>Max Spacing: </strong>
      <?=stripslashes($data['hgrid_max'])?> &nbsp; &nbsp;
      <strong>Number of Points: </strong>
      <?=stripslashes($data['hgrid_num'])?>
      </td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td width="200"><strong>Bathymetry</strong></td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td width="200" align="right" valign="top"><strong>Data Source: </strong></td>
      <td><?=stripslashes($data['bath_source'])?></td>
    </tr>
    <tr>
      <td width="200" align="right" valign="top"><strong>Smoothing Applied: </strong></td>
      <td><?=stripslashes($data['bath_smooth'])?></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td width="200" height="37" valign="top"><strong>Timestep (type/size):</strong></td>
      <td><?=stripslashes($data['timestep'])?></td>
    </tr>
    <tr>
      <td width="200"><strong>Model Run Duration:</strong></td>
      <td><?=stripslashes($data['duration'])?></td>
    </tr>
    <tr>
      <td align="right"><strong>Start:</strong></td>
      <td><?=stripslashes($data['time_start'])?></td>
    </tr>
    <tr>
      <td align="right"><strong>End:</strong></td>
      <td><?=stripslashes($data['time_end'])?></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td width="200"><strong>Forcing</strong> (i.e. source, frequency, spatial resolution, etc.)</td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td width="200" align="right" valign="top"><strong>Tides:</strong></td>
      <td><?=stripslashes($data['forcing_tides'])?></td>
    </tr>
    <tr>
      <td width="200" align="right" valign="top"><strong>Rivers:</strong></td>
      <td><?=stripslashes($data['forcing_rivers'])?></td>
    </tr>
    <tr>
      <td width="200" align="right" valign="top"><strong>Atmosphere:</strong></td>
      <td><?=stripslashes($data['forcing_atmos'])?></td>
    </tr>
    <tr>
      <td width="200" align="right" valign="top"><strong>Other:</strong></td>
      <td><?=stripslashes($data['forcing_other'])?></td>
    </tr>
    <tr>
      <td width="200" valign="top"><strong>Initial Conditions:</strong><br />
      (i.e. source, frequency, spatial resolution, etc.)</td>
      <td><?=stripslashes($data['ini_cond'])?></td>
    </tr>
    <tr>
      <td width="200" valign="top"><strong>Boundary Conditions:</strong><br />
      (i.e. source, frequency, spatial resolution, etc.)</td>
      <td><?=stripslashes($data['bndry_cond'])?></td>
    </tr>
    <tr>
      <td width="200"><strong>Data Assimilation:</strong></td>
      <td><?if($data['da_yn']=='N'){echo "No";}else{echo "Yes";}?>
        <strong>Info: </strong><?=stripslashes($data['da_info'])?></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td width="200"><strong>Equations:</strong></td>
      <td>
          <?=stripslashes($data['eq_stat'])?>, 
          <?=stripslashes($data['eq_bous'])?>
      </td>
    </tr>
    <tr>
      <td width="200" align="right"><strong>Closures:</strong></td>
      <td><?=stripslashes($data['eq_closures'])?></td>
    </tr>
    <tr>
      <td width="200" align="right" valign="top"><strong>Variables:</strong></td>
      <td>
<?
        $out = '';
        if($data['var_u'] == 'Y'){$out .= 'u, ';}
        if($data['var_v'] == 'Y'){$out .= 'v, ';}
        if($data['var_w'] == 'Y'){$out .= 'w, ';}
        if($data['var_T'] == 'Y'){$out .= 'T, ';}
        if($data['var_S'] == 'Y'){$out .= 'S, ';}
        if($data['var_rho'] == 'Y'){$out .= '&rho;, ';}
        echo perl_chop(perl_chop($out));
?>
      <br />
      <strong>Biology:</strong> 
      <?=stripslashes($data['var_bio'])?> &nbsp; &nbsp;
      <strong>Sediment:</strong> 
      <?=stripslashes($data['var_sed'])?> &nbsp; &nbsp;
      <strong>Sea Ice:</strong> 
      <?=stripslashes($data['var_ice'])?>
      </td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td width="200"><strong>Output</strong></td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td width="200" align="right" valign="top"><strong>What/Where/How Often?</strong></td>
      <td><?=stripslashes($data['output_wwh'])?></td>
    </tr>
    <tr>
      <td width="200" align="right"><strong>Format:</strong></td>
      <td><?=stripslashes($data['output_format'])?></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td width="200"><strong>Availablilty of Output Data</strong></td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td width="200" align="right" valign="top"><strong>On-line:</strong></td>
      <td><?=stripslashes($data['avail_url'])?></td>
    </tr>
    <tr>
      <td width="200" align="right"><strong>Contact Person:</strong></td>
      <td><?=stripslashes($data['avail_contact'])?></td>
    </tr>
    <tr>
      <td align="right"><strong>Contact Affiliation:</strong></td>
      <td><?=stripslashes($data['avail_cont_affil'])?></td>
    </tr>
    <tr>
      <td width="200" align="right"><strong>Contact Email:</strong></td>
      <td><?=stripslashes($data['avail_cont_email'])?></td>
    </tr>
    <tr>
      <td align="left" valign="top">&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td width="200" align="left" valign="top"><strong>Reference / Documentation</strong></td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td width="200" align="right" valign="top"><strong>References:</strong></td>
      <td><?=stripslashes($data['ref_ref'])?></td>
    </tr>
    <tr>
      <td align="right" valign="top"><strong>Who funded this work?</strong></td>
      <td><?=stripslashes($data['ref_fund'])?></td>
    </tr>
    <tr>
      <td align="right" valign="top"><strong>Award / Contract #:</strong></td>
      <td><?=stripslashes($data['ref_award_num'])?></td>
    </tr>
    <tr>
      <td align="right" valign="top"><strong>Project Title:</strong></td>
      <td><?=stripslashes($data['ref_proj_title'])?></td>
    </tr>
    <tr>
      <td align="right" valign="top">&nbsp;</td>
      <td><strong>Start:</strong>
        <?=stripslashes($data['ref_proj_start'])?> &nbsp; &nbsp;
        <strong>End: </strong>
        <?=stripslashes($data['ref_proj_end'])?>
      </td>
    </tr>
    <tr>
      <td align="right" valign="top"><strong>Citation</strong><strong>:</strong><br />
      (how to cite data/application)
      </td>
      <td><?=stripslashes($data['ref_cite'])?></td>
    </tr>
    <tr>
      <td align="right" valign="top"><strong>Notes:</strong></td>
      <td><?=stripslashes($data['ref_notes'])?></td>
    </tr>
  </table>
<?
} // if( isset($_GET['ind']) )
else{
   echo 'Please select an entry from the above list';
}

include FOOT;
?>
