From 1f12241a6f876b096b6dff71c2c2248f629ae0a4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hern=C3=A1n=20Asorey?= <asoreyh@gmail.com>
Date: Fri, 30 Sep 2022 14:38:58 +0200
Subject: [PATCH] Default options for BZ, BX and altitude are not zero anymore.
Improvement in error messages
---
eas/rain.pl | 36 ++++++++++++++++++------------------
1 file changed, 18 insertions(+), 18 deletions(-)
diff --git a/eas/rain.pl b/eas/rain.pl
index 2dddc38..f474789 100755
--- a/eas/rain.pl
+++ b/eas/rain.pl
@@ -388,39 +388,39 @@ for (my $i=0; $i < $nofruns; $i++) {
}
}
else {
- $altitude = get_answer("Observation level above sea level [cm]", 0, "OBSLEV");
+ $altitude = get_answer("Observation level above sea level [cm]", 1, "OBSLEV");
while ($altitude == 0) {
- print STDERR "Observation level is mandatory\n";
+ print STDERR "Observation level can't be zero due to CORSIKA requirements. For sea level use 1 (1 cm ~ sea level!)\n";
}
$modatm = get_answer("Atmospheric model selection. Start number with 'E' to use external atmospheres module, or 'G' for GDAS module", 19, "$atmcrd");
- $bx = get_answer("Horizontal comp. of the Earth's mag. field (MAGNET) [North,muT],\nsee values at http://www.ngdc.noaa.gov/geomagmodels/struts/calcIGRFWMM", 0, "BX");
+ $bx = get_answer("Horizontal comp. of the Earth's mag. field (MAGNET) [North,muT],\nget the values from https://geomag.bgs.ac.uk/data_service/models_compass/igrf_calc.html", 0.1, "BX");
while ($bx == 0) {
- print STDERR "BX is mandatory\n";
- $bx = get_answer("Horizontal comp. of the Earth's mag. field (MAGNET) [North,muT],\nsee values at http://www.ngdc.noaa.gov/geomagmodels/struts/calcIGRFWMM", 0, "BX");
+ print STDERR "BX can't be zero\n";
+ $bx = get_answer("Horizontal comp. of the Earth's mag. field (MAGNET) [North,muT],\nget the values from https://geomag.bgs.ac.uk/data_service/models_compass/igrf_calc.html", 0.1, "BX");
}
- $bz = get_answer("Vertical comp. of the Earth's mag. field (MAGNET) [downwards,muT]", 0, "BZ");
+ $bz = get_answer("Vertical comp. of the Earth's mag. field (MAGNET) [downwards,muT]", 0.1, "BZ");
while ($bz == 0) {
- print STDERR "BZ is mandatory\n";
- $bz = get_answer("Vertical comp. of the Earth's mag. field (MAGNET) [downwards,muT]", 0, "BZ");
+ print STDERR "BZ can't be zero\n";
+ $bz = get_answer("Vertical comp. of the Earth's mag. field (MAGNET) [downwards,muT]", 0.1, "BZ");
}
}
}
else {
- $altitude = get_answer("Observation level above sea level [cm]", 0, "OBSLEV");
+ $altitude = get_answer("Observation level above sea level [cm]", 1, "OBSLEV");
while ($altitude == 0) {
- print STDERR "Observation level is mandatory\n";
- $altitude = get_answer("Observation level above sea level [cm]", 0, "OBSLEV");
+ print STDERR "Observation level can't be zero due to CORSIKA requirements. For sea level use 1 (1 cm ~ sea level!)\n";
+ $altitude = get_answer("Observation level above sea level [cm]", 1, "OBSLEV");
}
$modatm = get_answer("Atmospheric model selection. Start number with 'E' to use external atmospheres module, or 'G' for GDAS module", 19, "$atmcrd");
- $bx = get_answer("Horizontal comp. of the Earth's mag. field (MAGNET) [North,muT],\nsee values at http://www.ngdc.noaa.gov/geomagmodels/struts/calcIGRFWMM", 0, "BX");
+ $bx = get_answer("Horizontal comp. of the Earth's mag. field (MAGNET) [North,muT],\nget the values from https://geomag.bgs.ac.uk/data_service/models_compass/igrf_calc.html", 0.1, "BX");
while ($bx == 0) {
- print STDERR "BX is mandatory\n";
- $bx = get_answer("Horizontal comp. of the Earth's mag. field (MAGNET) [North,muT],\nsee values at http://www.ngdc.noaa.gov/geomagmodels/struts/calcIGRFWMM", 0, "BX");
+ print STDERR "BX can't be zero\n";
+ $bx = get_answer("Horizontal comp. of the Earth's mag. field (MAGNET) [North,muT],\nget the values from https://geomag.bgs.ac.uk/data_service/models_compass/igrf_calc.html", 0.1, "BX");
}
- $bz = get_answer("Vertical comp. of the Earth's mag. field (MAGNET) [downwards,muT]", 0, "BZ");
+ $bz = get_answer("Vertical comp. of the Earth's mag. field (MAGNET) [downwards,muT]", 0.1, "BZ");
while ($bz == 0) {
- print STDERR "BZ is mandatory\n";
- $bz = get_answer("Vertical comp. of the Earth's mag. field (MAGNET) [downwards,muT]", 0, "BZ");
+ print STDERR "BZ can't be zero\n";
+ $bz = get_answer("Vertical comp. of the Earth's mag. field (MAGNET) [downwards,muT]", 0.1, "BZ");
}
}
if (uc(substr($modatm,0,1)) eq "E") { # using external atmospheres bernlhor
@@ -616,4 +616,4 @@ unless ($grid != 0) {
print "###################################################################\n";
print "# BYE BYE\n";
print "###################################################################\n";
-}
\ No newline at end of file
+}
--
GitLab