$current_year) { $year = $default_year; } $syear = strval($year); // Assign writing name using switch switch ($sname) { case "CapVert": $wsname = "Cap Vert"; break; case "ElHierro": $wsname = "El Hierro"; break; case "LaPalma": $wsname = "La Palma"; break; case "DiegoGarcia": $wsname = "Diego Garcia"; break; case "LaReunion_SaintDenis": $wsname = "La Réunion Saint-Denis"; break; default: $wsname = str_replace("_", " ", $sname); break; } switch (true) { case in_array($sname, $sPNW): $site="PNW"; break; case in_array($sname, $sISW): $site="ISW"; break; case in_array($sname, $sSENA): $site="SENA"; break; } // Build paths $BASEall = "../../../../www-mica/web/GFS/$site/$sname/$syear"; $toPlotDir = substr($BASEall, 16); // Get mica/web/$site/... $toPlotDir = "https://observations.ipsl.fr/aeris/$toPlotDir/"; $anaFigDir = "ANAFIG"; ?> <?php echo htmlspecialchars($wsname); ?> GFS | Archives " <?php echo htmlspecialchars($syear); ?>

Available analysis figures for | GFS |

"; echo "

" . htmlspecialchars($subDirectory) . "

"; $files = glob("$BASEall/$subDirectory/$anaFigDir/*"); if ($files) { foreach ($files as $file) { $basenamefile = basename($file); $basenamefilePlot = substr($basenamefile, -8, 4); $fileUrl = htmlspecialchars($toPlotDir . rawurlencode($subDirectory) . '/' . $anaFigDir . '/' . rawurlencode($basenamefile)); echo "" . htmlspecialchars($basenamefilePlot) . "
"; } } else { echo "

No files.

"; } echo ""; } } else { echo "

No data available for this station/year combination.

"; } ?>