diff --git a/eas/rain.pl b/eas/rain.pl
index 2dddc388077e2a15eb68257f9d0ee590b2227517..f47478953a9411d33cd62ad64dbe7cdb1e608134 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
+}