/// <summary>
/// Load or calculate the roughness lenght
/// </summary>
/// <param name="ReaderClass">Program Reader Class</param>
private static void InitAdaptiveRoughnessLenght(ProgramReaders ReaderClass)
{
Program.Z0Gral = CreateArray <float[]>(NII + 2, () => new float[NJJ + 2]);
Program.OLGral = CreateArray <float[]>(NII + 2, () => new float[NJJ + 2]);
Program.USternGral = CreateArray <float[]>(NII + 2, () => new float[NJJ + 2]);
// Read roughness from file
bool readRoughnessFromFile = false;
if (File.Exists("RoughnessLengthsGral.dat"))
{
readRoughnessFromFile = ReaderClass.ReadRoughnessGral(Program.Z0Gral);
if (readRoughnessFromFile)
{
Console.WriteLine("Reading local roughness lenghts from RoughnessLenghtsGral.dat successful");
}
}
// or create adaptive roughness lenghts
if (readRoughnessFromFile == false)
{
CreateAdaptiveRoughnessLenght(ReaderClass);
}
}
/// <summary>
/// Calculate the roughness lenght based on objects like buildings and vegetation areas
/// </summary>
/// <param name="ReaderClass">Program Reader Class</param>
private static void CreateAdaptiveRoughnessLenght(ProgramReaders ReaderClass)
{
//read buildings into a local array
float[][] TempArray = CreateArray <float[]>(NII + 2, () => new float[NJJ + 2]);
if (Topo == 1)
{
ReaderClass.ReadBuildingsTerrain(TempArray);
}
else
{
ReaderClass.ReadBuildingsFlat(TempArray);
}
ArrayFilter fil = new ArrayFilter();
//Find building outlines
//TempArray = fil.FindOutline(TempArray);
// Take building height into Z0
float max = 0;
for (int i = 0; i <= NII; i++)
{
for (int j = 0; j <= NJJ; j++)
{
if (TempArray[i][j] > 1)
{
float val = MathF.Log10(TempArray[i][j]); //roughness from building height
max = MathF.Max(max, val);
Program.Z0Gral[i][j] = MathF.Min(AdaptiveRoughnessMax, val);
}
}
}
max = Math.Min(max, Program.AdaptiveRoughnessMax);
//Filter Roughness
Program.Z0Gral = fil.LowPassGaussian(Program.Z0Gral, Program.DXK, 40, max); // scale with max
//roughness length for building walls
float buildingZ0 = 0.01F;
if (File.Exists("building_roughness.txt") == true)
{
try
{
using (StreamReader sr = new StreamReader("building_roughness.txt"))
{
buildingZ0 = Convert.ToSingle(sr.ReadLine().Replace(".", Program.Decsep));
}
}
catch
{ }
}
//Set Roughness within buildings to building wall value and clear TempArray
for (int i = 0; i <= NII; i++)
{
for (int j = 0; j <= NJJ; j++)
{
if (TempArray[i][j] > Program.Z0Gral[i][j] * 2)
{
Program.Z0Gral[i][j] = buildingZ0;
}
TempArray[i][j] = 0;
}
}
// Read vegetation heigth, limit vegetation roughness to 1.3 m and combine with building roughness
ReaderClass.ReadVegetationDomain(TempArray);
//Limit vegetation to 1.5
for (int i = 0; i <= NII; i++)
{
for (int j = 0; j <= NJJ; j++)
{
TempArray[i][j] = MathF.Min(1.3F, TempArray[i][j]);
}
}
// Filter vegetation array
TempArray = fil.LowPassGaussian(TempArray, Program.DXK, 15, 0); // no scale
fil = null;
for (int i = 0; i <= NII; i++)
{
for (int j = 0; j <= NJJ; j++)
{
Program.Z0Gral[i][j] = MathF.Max(MathF.Min(1.5F, TempArray[i][j]), Program.Z0Gral[i][j]);
}
}
if ((Program.Topo == 1) && (Program.LandUseAvailable == true))
{
float DDX1 = Program.DDX[1];
float DDY1 = Program.DDY[1];
int Delta_IKOO = (int)XsiMinGral - Program.GrammWest;
int Delta_JKOO = (int)EtaMinGral - Program.GrammSouth;
//With topography and LandUse File for Roughness lenght -> Compare with Z0Gramm and take larger value
for (int i = 0; i <= NII; i++)
{
for (int j = 0; j <= NJJ; j++)
{
int GrammCellX = Math.Clamp((int)((Delta_IKOO + DXK * i - DXK * 0.5) / DDX1) + 1, 1, Program.NX);
int GrammCellY = Math.Clamp((int)((Delta_JKOO + DYK * j - DYK * 0.5) / DDY1) + 1, 1, Program.NY);
Program.Z0Gral[i][j] = MathF.Max(Program.Z0Gramm[GrammCellX][GrammCellY],
MathF.Min(AdaptiveRoughnessMax, Program.Z0Gral[i][j]));
}
}
}
else
{
// limit roughness between min and max
for (int i = 0; i <= NII; i++)
{
for (int j = 0; j <= NJJ; j++)
{
Program.Z0Gral[i][j] = MathF.Max(Z0, MathF.Min(AdaptiveRoughnessMax, Program.Z0Gral[i][j]));
}
}
}
max = 0;
float min = 20000;
for (int i = 0; i <= NII; i++)
{
for (int j = 0; j <= NJJ; j++)
{
max = MathF.Max(max, Program.Z0Gral[i][j]);
min = MathF.Min(min, Program.Z0Gral[i][j]);
}
}
string Info = "Using adaptive roughness length. User minimum: " + Z0.ToString("0.00") + " m User maximum: " + AdaptiveRoughnessMax.ToString("0.00") + " m";
Console.WriteLine(Info);
ProgramWriters.LogfileGralCoreWrite(Info);
Info = " Used minimum: " + min.ToString("0.00") + " m Used maximum: " + max.ToString("0.00") + " m";
Console.WriteLine(Info);
ProgramWriters.LogfileGralCoreWrite(Info);
// ProgramWriters WriteClass = new ProgramWriters();
ProgramWriters WriteClass = new ProgramWriters();
WriteClass.WriteBuildingHeights("RoughnessLengthsGral.txt", Program.Z0Gral, "0.00", 2, Program.GralWest, Program.GralSouth);
WriteClass = null;
TempArray = null;
}
/*INPUT FILES :
* BASIC DOMAIN INFORMATION GRAL.geb
* MAIN CONTROL PARAM FILEs in.dat
* GEOMETRY DATA ggeom.asc
* LANDUSE DATA landuse.asc
* METEOROLOGICAL DATA meteopgt.all, or inputzr.dat, or sonic.dat
* MAX. NUMBER OF CPUs Max_Proc.txt
* EMISSION SOURCES line.dat, point.dat, cadastre.dat, portals.dat
* TUNNEL JET DESTRUCTION
* BY TRAFFIC ON OPPOSITE LANE oppsite_lane.txt
* POLLUTANTS SUCKED IN BY
* TUNNEL PORTAL AT OPPOSITE LANE tunnel_entrance.txt
* LOCATIONS AND HEIGHTS OF BUILDINGS buildings.dat
* LOCATIONS AND HEIGHTS OF VEGETATION vegetation.dat
* LOCATIONS AND HEIGHTS OF RECEPTORS Receptor.dat
* NUMBER OF VERTICAL LAYERS FOR
* PROGNOSTIC FLOW FIELD MODEL micro_vert_layers.txt
* RELAXATION FACTORS FOR
* PROGNOSTIC FLOW FIELD MODEL relaxation_factors.txt
* MINIMUM ANd MAXIMUM INTEGRATION TIMES
* FOR PROGNOSTIC FLOW FIELD MODEL Integrationtime.txt
* ROUGHNESS LENGTH FOR OBSTACLES
* FOR PROGNOSTIC FLOW FIELD MODEL building_roughness.txt
* TRANSIENT GRAL MODE CONC.THRESHOLD GRAL_Trans_Conc_Threshold.txt
* POLLUTANT & WET DEPOSITION SETTINGS Pollutant.txt
* WET DEPOSITION PRECIPITATION DATA Precipitation.txt
* CALCULATE 3D CONCENTRATION DATA IN
* TRANSIENT GRAL MODE GRAL_Vert_Conc.txt
*/
static void Main(string[] args)
{
int p = (int)Environment.OSVersion.Platform;
if ((p == 4) || (p == 6) || (p == 128))
{
//Console.WriteLine ("Running on Unix");
RunOnUnix = true;
}
//WRITE GRAL VERSION INFORMATION TO SCREEN
Console.WriteLine("");
Console.WriteLine("+------------------------------------------------------+");
Console.WriteLine("| |");
string Info = "+ > > G R A L VERSION: 20.09 < < +";
Console.WriteLine(Info);
if (RunOnUnix)
{
Console.WriteLine("| L I N U X |");
}
Console.WriteLine("| .Net Core Version |");
Console.WriteLine("| |");
Console.WriteLine("+------------------------------------------------------+");
Console.WriteLine("");
ShowCopyright(args);
// write zipped files?
ResultFileZipped = false;
//User defined decimal seperator
Decsep = NumberFormatInfo.CurrentInfo.NumberDecimalSeparator;
int SIMD = CheckSIMD();
LogLevel = CheckCommandLineArguments(args);
//Delete file Problemreport_GRAL.txt
if (File.Exists("Problemreport_GRAL.txt") == true)
{
try
{
File.Delete("Problemreport_GRAL.txt");
}
catch { }
}
// Write to "Logfile_GRALCore"
try
{
ProgramWriters.LogfileGralCoreWrite(new String('-', 80));
ProgramWriters.LogfileGralCoreWrite(Info);
ProgramWriters.LogfileGralCoreWrite("Computation started at: " + DateTime.Now.ToString());
ProgramWriters.LogfileGralCoreWrite("Computation folder: " + Directory.GetCurrentDirectory());
Info = "Application hash code: " + GetAppHashCode();
ProgramWriters.LogfileGralCoreWrite(Info);
}
catch { }
ProgramReaders ReaderClass = new ProgramReaders();
//Read number of user defined vertical layers
ReaderClass.ReadMicroVertLayers();
GFFFilePath = ReaderClass.ReadGFFFilePath();
//Lowest grid level of the prognostic flow field model grid
HOKART[0] = 0;
//read main GRAL domain file "GRAL.geb" and check if the file "UseOrigTopography.txt" exists -> needed to read In.Dat!
ReaderClass.ReadGRALGeb();
//optional: read GRAMM file ggeom.asc
if (File.Exists("ggeom.asc") == true)
{
ReaderClass.ReadGRAMMGeb();
}
//horizontal grid sizes of the GRAL concentration grid
GralDx = (float)((XsiMaxGral - XsiMinGral) / (float)NXL);
GralDy = (float)((EtaMaxGral - EtaMinGral) / (float)NYL);
//Set the maximum number of threads to be used in each parallelized region
ReaderClass.ReadMaxNumbProc();
//sets the number of cells near the walls of obstacles, where a boundary-layer is computed in the diagnostic flow field approach
IGEB = Math.Max((int)(20 / DXK), 1);
//Read Pollutant and Wet deposition data
Odour = ReaderClass.ReadPollutantTXT();
//Create large arrays
CreateLargeArrays();
//optional: reading GRAMM orography file ggeom.asc -> there are two ways to read ggeom.asc (1) the files contains all information or (2) the file just provides the path to the original ggeom.asc
ReaderClass.ReadGgeomAsc();
//number of grid cells of the GRAL microscale flow field
NII = (int)((XsiMaxGral - XsiMinGral) / DXK);
NJJ = (int)((EtaMaxGral - EtaMinGral) / DYK);
AHKOri = CreateArray <float[]>(NII + 2, () => new float[NJJ + 2]);
GralTopofile = ReaderClass.ReadGRALTopography(NII, NJJ); // GRAL Topofile OK?
//reading main control file in.dat
ReaderClass.ReadInDat();
//total number of particles released for each weather situation
NTEILMAX = (int)(TAUS * TPS);
//Volume of the GRAL concentration grid
GridVolume = GralDx * GralDy * GralDz;
//Reading building data
//case 1: complex terrain
if (Topo == 1)
{
InitGralTopography(SIMD);
ReaderClass.ReadBuildingsTerrain(Program.CUTK); //define buildings in GRAL
}
//flat terrain application
else
{
InitGralFlat();
ReaderClass.ReadBuildingsFlat(Program.CUTK); //define buildings in GRAL
}
// array declarations for prognostic and diagnostic flow field
if ((FlowFieldLevel > 0) || (Topo == 1))
{
// create jagged arrays manually to keep memory areas of similar indices togehter -> reduce false sharing &
// save memory because of the unused index 0
DIV = new float[NII + 1][][];
DPM = new float[NII + 1][][];
for (int i = 1; i < NII + 1; ++i)
{
DIV[i] = new float[NJJ + 1][];
DPM[i] = new float[NJJ + 1][];
for (int j = 1; j < NJJ + 1; ++j)
{
DIV[i][j] = new float[NKK + 1];
DPM[i][j] = new float[NKK + 2];
}
if (i % 100 == 0)
{
Console.Write(".");
}
}
}
//In case of transient simulations: load presets and define arrays
if (ISTATIONAER == 0)
{
TransientPresets.LoadAndDefine();
}
Console.WriteLine(".");
//reading receptors from file Receptor.dat
ReaderClass.ReadReceptors();
//the horizontal standard deviations of wind component fluctuations are dependent on the averaging time (dispersion time)
if ((IStatistics == 4))
{
StdDeviationV = (float)Math.Pow(TAUS / 3600, 0.2);
}
//for applications in flat terrain, the roughness length is homogenous as defined in the file in.dat
if (Topo != 1)
{
Z0Gramm[1][1] = Z0;
}
//checking source files
if (File.Exists("line.dat") == true)
{
LS_Count = 1;
}
if (File.Exists("portals.dat") == true)
{
TS_Count = 1;
}
if (File.Exists("point.dat") == true)
{
PS_Count = 1;
}
if (File.Exists("cadastre.dat") == true)
{
AS_Count = 1;
}
Console.WriteLine();
Info = "Total number of horizontal slices for concentration grid: " + NS.ToString();
Console.WriteLine(Info);
for (int i = 0; i < NS; i++)
{
try
{
Info = " Slice height above ground [m]: " + HorSlices[i].ToString();
Console.WriteLine(Info);
}
catch
{ }
}
//emission modulation for transient mode
ReaderClass.ReadEmissionTimeseries();
//vegetation array
VEG = CreateArray <float[][]>(NII + 2, () => CreateArray <float[]>(NJJ + 2, () => new float[NKK + 1]));
Program.VEG[0][0][0] = -0.00001f;
COV = CreateArray <float[]>(NII + 2, () => new float[NJJ + 2]);
//reading optional files used to define areas where either the tunnel jet stream is destroyed due to traffic
//on the opposite lanes of a highway or where pollutants are sucked into a tunnel portal
ReaderClass.ReadTunnelfilesOptional();
//optional: reading land-use data from file landuse.asc
ReaderClass.ReadLanduseFile();
//Use the adaptive roughness lenght mode?
if (AdaptiveRoughnessMax > 0 && BuildingsExist)
{
//define FlowField dependend Z0, UStar and OL, generate Z0GRAL[][] array and write RoghnessGRAL file
InitAdaptiveRoughnessLenght(ReaderClass);
}
else
{
AdaptiveRoughnessMax = 0;
}
//setting the lateral borders of the domain -> Attention: changes the GRAL borders from absolute to reletive values!
InitGralBorders();
//reading point source data
if (PS_Count > 0)
{
PS_Count = 0;
Console.WriteLine();
Console.WriteLine("Reading file point.dat");
ReadPointSources.Read();
}
//reading line source data
if (LS_Count > 0)
{
LS_Count = 0;
Console.WriteLine();
Console.WriteLine("Reading file line.dat");
ReadLineSources.Read();
}
//reading tunnel portal data
if (TS_Count > 0)
{
TS_Count = 0;
Console.WriteLine();
Console.WriteLine("Reading file portals.dat");
ReadTunnelPortals.Read();
}
//reading area source data
if (AS_Count > 0)
{
AS_Count = 0;
Console.WriteLine();
Console.WriteLine("Reading file cadastre.dat");
ReadAreaSources.Read();
}
//distribution of all particles over all sources according to their source strengths (the higher the emission rate the larger the number of particles)
NTEILMAX = ParticleManagement.Calculate();
//Coriolis parameter
CorolisParam = (float)(2 * 7.29 * 0.00001 * Math.Sin(Math.Abs(LatitudeDomain) * 3.1415 / 180));
//weather situation to start with
IWET = IWETstart - 1;
//read mettimeseries.dat, meteopgt.all and Precipitation.txt in case of transient simulations
InputMettimeSeries InputMetTimeSeries = new InputMettimeSeries();
if ((ISTATIONAER == 0) && (IStatistics == 4))
{
InputMetTimeSeries.WindData = MeteoTimeSer;
InputMetTimeSeries.ReadMetTimeSeries();
MeteoTimeSer = InputMetTimeSeries.WindData;
if (MeteoTimeSer.Count == 0) // no data available
{
string err = "Error when reading file mettimeseries.dat -> Execution stopped: press ESC to stop";
Console.WriteLine(err);
ProgramWriters.LogfileProblemreportWrite(err);
}
InputMetTimeSeries.WindData = MeteopgtLst;
InputMetTimeSeries.ReadMeteopgtAll();
MeteopgtLst = InputMetTimeSeries.WindData;
if (MeteopgtLst.Count == 0) // no data available
{
string err = "Error when reading file meteopgt.all -> Execution stopped: press ESC to stop";
Console.WriteLine(err);
ProgramWriters.LogfileProblemreportWrite(err);
}
// Read precipitation data
ReaderClass.ReadPrecipitationTXT();
}
else
{
WetDeposition = false;
}
if (ISTATIONAER == 0)
{
Info = "Transient GRAL mode. Number of weather situations: " + MeteoTimeSer.Count.ToString();
Console.WriteLine(Info);
ProgramWriters.LogfileGralCoreWrite(Info);
}
/********************************************
* MAIN LOOP OVER EACH WEATHER SITUATION *
********************************************/
Thread ThreadWriteGffFiles = null;
Thread ThreadWriteConz4dFile = null;
bool FirstLoop = true;
while (IEND == 0)
{
// if GFF writing thread has been started -> wait until GFF--WriteThread has been finished
if (ThreadWriteGffFiles != null)
{
ThreadWriteGffFiles.Join(5000); // wait up to 5s or until thread has been finished
if (ThreadWriteGffFiles.IsAlive)
{
Console.Write("Writing *.gff file..");
while (ThreadWriteGffFiles.IsAlive)
{
ThreadWriteGffFiles.Join(30000); // wait up to 30s or until thread has been finished
Console.Write(".");
}
Console.WriteLine();
}
ThreadWriteGffFiles = null; // Release ressources
}
//Next weather situation
IWET++;
IDISP = IWET;
WindVelGramm = -99; WindDirGramm = -99; StabClassGramm = -99; // Reset GRAMM values
//show actual computed weather situation
Console.WriteLine("_".PadLeft(79, '_'));
Console.Write("Weather number: " + IWET.ToString());
if (ISTATIONAER == 0)
{
int _iwet = IWET - 1;
if (_iwet < MeteoTimeSer.Count)
{
Console.WriteLine(" - " + MeteoTimeSer[_iwet].Day + "." + MeteoTimeSer[_iwet].Month + "-" + MeteoTimeSer[_iwet].Hour + ":00");
}
}
else
{
Console.WriteLine();
}
//time stamp to evaluate computation times
int StartTime = Environment.TickCount;
//Set the maximum number of threads to be used in each parallelized region
ReaderClass.ReadMaxNumbProc();
//read meteorological input data
if (IStatistics == 4)
{
if (ISTATIONAER == 0)
{
//search for the corresponding weather situation in meteopgt.all
IDISP = InputMetTimeSeries.SearchWeatherSituation() + 1;
IWETstart = IDISP;
if (IWET > MeteoTimeSer.Count)
{
IEND = 1;
}
}
else
{
//in stationary mode, meteopgt.all is read here, because we need IEND
IEND = Input_MeteopgtAll.Read();
IWETstart--; // reset the counter, because metepgt.all is finally read in ReadMeteoData, after the GRAMM wind field is available
}
}
if (ISTATIONAER == 0 && IDISP == 0)
{
break; // reached last line in mettimeseries -> exit loop
}
if (IEND == 1)
{
break; // reached last line in meteopgt.all -> exit loop
}
String WindfieldPath = ReadWindfeldTXT();
if (Topo == 1)
{
Console.Write("Reading GRAMM wind field: ");
}
if (ISTATIONAER == 0 && IDISP < 0) // found no corresponding weather situation in meteopgt.all
{
Info = "Cannot find a corresponding entry in meteopgt.all to the following line in mettimeseries.dat - situation skipped: " + IWET.ToString();
Console.WriteLine();
Console.WriteLine(Info);
ProgramWriters.LogfileGralCoreWrite(Info);
}
else if (Topo == 0 || (Topo == 1 && ReadWndFile.Read(WindfieldPath))) // stationary mode or an entry in meteopgt.all exist && if topo -> wind field does exist
{
//GUI output
try
{
using (StreamWriter wr = new StreamWriter("DispNr.txt"))
{
wr.WriteLine(IWET.ToString());
}
}
catch { }
//Topography mode -> read GRAMM stability classes
if (Topo == 1)
{
string SclFileName = String.Empty;
if (WindfieldPath == String.Empty)
{
//case 1: stability fields are located in the same sub-directory as the GRAL executable
SclFileName = Convert.ToString(Program.IDISP).PadLeft(5, '0') + ".scl";
}
else
{
//case 2: wind fields are imported from a different project
SclFileName = Path.Combine(WindfieldPath, Convert.ToString(Program.IDISP).PadLeft(5, '0') + ".scl");
}
if (File.Exists(SclFileName))
{
Console.WriteLine("Reading GRAMM stability classes: " + SclFileName);
ReadSclUstOblClasses Reader = new ReadSclUstOblClasses
{
FileName = SclFileName,
Stabclasses = AKL_GRAMM
};
Reader.ReadSclFile();
AKL_GRAMM = Reader.Stabclasses;
Reader.Close();
}
}
//Read meteorological input data depending on the input type IStatisitcs
ReadMeteoData();
//Check if all weather situations have been computed
if (IEND == 1)
{
break;
}
//potential temperature gradient
CalculateTemperatureGradient();
//optional: read pre-computed GRAL flow fields
bool GffFiles = ReadGralFlowFields.Read();
if (GffFiles == false) // Reading of GRAL Flowfields not successful
{
//microscale flow field: complex terrain
if (Topo == 1)
{
MicroscaleTerrain.Calculate(FirstLoop);
}
//microscale flow field: flat terrain
else if ((Topo == 0) && ((BuildingsExist == true) || (File.Exists("vegetation.dat") == true)))
{
MicroscaleFlat.Calculate();
}
if (Topo == 0)
{
Program.AHMIN = 0;
}
//optional: write GRAL flow fields
ThreadWriteGffFiles = new Thread(WriteGRALFlowFields.Write);
ThreadWriteGffFiles.Start(); // start writing thread
if (FirstLoop)
{
WriteGRALFlowFields.WriteGRALGeometries();
}
}
ProgramWriters WriteClass = new ProgramWriters();
//time needed for wind-field computations
double CalcTimeWindfield = (Environment.TickCount - StartTime) * 0.001;
//reset receptor concentrations
if (ReceptorsAvailable == 1) // if receptors are acitvated
{
ReadReceptors.ReceptorResetConcentration();
}
if (FirstLoop)
{
//read receptors
ReceptorNumber = 0;
if (ReceptorsAvailable == 1) // if receptors are acitvated
{
ReadReceptors.ReadReceptor(); // read coordinates of receptors - flow field data needed
}
//in case of complex terrain and/or the presence of buildings some data is written for usage in the GUI (visualization of vertical slices)
WriteClass.WriteGRALGeometries();
//optional: write building heights as utilized in GRAL
WriteClass.WriteBuildingHeights("building_heights.txt", Program.BUI_HEIGHT, "0.0", 1, Program.IKOOAGRAL, Program.JKOOAGRAL);
Console.WriteLine(Info);
ProgramWriters.LogfileGralCoreWrite(Info);
}
//calculating momentum and bouyancy forces for point sources
PointSourceHeight.CalculatePointSourceHeight();
//defining the initial positions of particles
StartCoordinates.Calculate();
//boundary-layer height
CalculateBoudaryLayerHeight();
//show meteorological parameters on screen
OutputOfMeteoData();
//Transient mode: non-steady-state particles
if (ISTATIONAER == 0)
{
Console.WriteLine();
Console.Write("Dispersion computation.....");
// calculate wet deposition parameter
if (IWET < WetDepoPrecipLst.Count)
{
if (WetDepoPrecipLst[IWET] > 0)
{
WetDepoRW = Wet_Depo_CW * Math.Pow(WetDepoPrecipLst[IWET], WedDepoAlphaW);
WetDepoRW = Math.Max(0, Math.Min(1, WetDepoRW));
}
else
{
WetDepoRW = 0;
}
}
//set lower concentration threshold for memory effect
TransConcThreshold = ReaderClass.ReadTransientThreshold();
int IPERCnss = 0;
int advancenss = 0;
int cellNr = NII * NJJ;
int percent10nss = (int)(cellNr * 0.1F);
DispTimeSum = TAUS;
// loop over all cells
Parallel.For(0, cellNr, Program.pOptions, cell =>
{
Interlocked.Increment(ref advancenss);
if (advancenss > percent10nss)
{
Interlocked.Exchange(ref advancenss, 0); // set advance to 0
Interlocked.Add(ref IPERCnss, 10);
if (IPERCnss < 100)
{
Console.Write("X");
if (IPERCnss % 20 == 0)
{
try
{
using (StreamWriter sr = new StreamWriter("Percent.txt", false))
{
sr.Write(MathF.Round(IPERCnss * 0.5F).ToString());
}
}
catch { }
}
}
}
// indices of recent cellNr
int i = 1 + (cell % NII);
int j = 1 + (int)(cell / NII);
for (int k = 1; k <= NKK_Transient; k++)
{
for (int IQ = 0; IQ < Program.SourceGroups.Count; IQ++)
{
if (Conz4d[i][j][k][IQ] >= TransConcThreshold)
{
ZeitschleifeNonSteadyState.Calculate(i, j, k, IQ, Conz4d[i][j][k][IQ]);
}
}
}
});
Console.Write("X");
} // non-steady-state particles
Console.WriteLine();
Console.Write("Dispersion computation.....");
//new released particles
int IPERC = 0;
int advance = 0;
int percent10 = (int)(NTEILMAX * 0.1F);
DispTimeSum = TAUS;
Parallel.For(1, NTEILMAX + 1, Program.pOptions, nteil =>
{
Interlocked.Increment(ref advance);
if (advance > percent10)
{
Interlocked.Exchange(ref advance, 0); // set advance to 0
Interlocked.Add(ref IPERC, 10);
Console.Write("I");
if (IPERC % 20 == 0)
{
try
{
using (StreamWriter sr = new StreamWriter("Percent.txt", false))
{
if (ISTATIONAER == 0)
{
sr.Write((50 + MathF.Round(IPERC * 0.5F)).ToString());
}
else
{
sr.Write(IPERC.ToString());
}
}
}
catch { }
}
}
Zeitschleife.Calculate(nteil);
});
Console.Write("I");
Console.WriteLine();
// Wait until conz4d file is written
if (ThreadWriteConz4dFile != null) // if Thread has been started -> wait until GFF--WriteThread has been finished
{
ThreadWriteConz4dFile.Join(); // wait, until thread has been finished
ThreadWriteConz4dFile = null; // Release ressources
}
//tranferring non-steady-state concentration fields
if (ISTATIONAER == 0)
{
TransferNonSteadyStateConcentrations(WriteClass, ref ThreadWriteConz4dFile);
}
if (FirstLoop)
{
ProgramWriters.LogfileGralCoreInfo(ResultFileZipped, GffFiles);
FirstLoop = false;
}
//Correction of concentration volume in each cell and for each gridded receptor
VolumeCorrection();
//time needed for dispersion computations
double CalcTimeDispersion = (Environment.TickCount - StartTime) * 0.001 - CalcTimeWindfield;
Console.WriteLine();
Console.WriteLine("Total simulation time [s]: " + (CalcTimeWindfield + CalcTimeDispersion).ToString("0.0"));
Console.WriteLine("Dispersion [s]: " + CalcTimeDispersion.ToString("0.0"));
Console.WriteLine("Flow field [s]: " + CalcTimeWindfield.ToString("0.0"));
if (LogLevel > 0) // additional LOG-Output
{
LOG01_Output();
}
ZippedFile = IWET.ToString("00000") + ".grz";
try
{
if (File.Exists(ZippedFile))
{
File.Delete(ZippedFile); // delete existing files
}
}
catch { }
//output of 2-D concentration files (concentrations, deposition, odour-files)
WriteClass.Write2DConcentrations();
//receptor concentrations
if (ISTATIONAER == 0)
{
WriteClass.WriteReceptorTimeseries(0);
}
WriteClass.WriteReceptorConcentrations();
//microscale flow-field at receptors
WriteClass.WriteMicroscaleFlowfieldReceptors();
} //skipped situation if no entry in meteopgt.all could be found in transient GRAL mode
}
// Write summarized emission per source group and 3D Concentration file
if (ISTATIONAER == 0)
{
ProgramWriters WriteClass = new ProgramWriters();
if (WriteVerticalConcentration)
{
WriteClass.Write3DTextConcentrations();
}
Console.WriteLine();
ProgramWriters.LogfileGralCoreWrite("");
ProgramWriters.ShowEmissionRate();
}
if (ThreadWriteGffFiles != null) // if Thread has been started -> wait until GFF--WriteThread has been finished
{
ThreadWriteGffFiles.Join(); // wait, until thread has been finished
ThreadWriteGffFiles = null; // Release ressources
}
// Clean transient files
Delete_Temp_Files();
//Write receptor statistical error
if (Program.ReceptorsAvailable > 0)
{
ProgramWriters WriteClass = new ProgramWriters();
WriteClass.WriteReceptorTimeseries(1);
}
ProgramWriters.LogfileGralCoreWrite("GRAL simulations finished at: " + DateTime.Now.ToString());
ProgramWriters.LogfileGralCoreWrite(new String('-', 80));
if (Program.IOUTPUT <= 0 && Program.WaitForConsoleKey) // not for Soundplan or no keystroke
{
Console.WriteLine();
Console.WriteLine("GRAL simulations finished. Press any key to continue...");
Console.ReadKey(true); // wait for a key input
}
Environment.Exit(0); // Exit console
}
/// <summary>
/// Pre calculations for flat microscale terrain
/// </summary>
public static void Calculate()
{
Console.WriteLine();
Console.WriteLine("FLOW FIELD COMPUTATION WITHOUT TOPOGRAPHY");
Program.KADVMAX = 1;
int inumm = Program.MetProfileNumb;
//set wind-speed components equal to zero
Parallel.For(1, Program.NII + 2, Program.pOptions, i =>
{
for (int j = 1; j <= Program.NJJ + 1; j++)
{
float[] UK_L = Program.UK[i][j];
float[] VK_L = Program.VK[i][j];
float[] WK_L = Program.WK[i][j];
for (int k = 1; k <= Program.NKK; k++)
{
UK_L[k] = 0;
VK_L[k] = 0;
WK_L[k] = 0;
}
}
});
object obj = new object();
//Parallel.For(1, Program.NII + 1, Program.pOptions, i =>
Parallel.ForEach(Partitioner.Create(1, Program.NII + 1, Math.Max(4, (int)(Program.NII / Program.pOptions.MaxDegreeOfParallelism))), range =>
{
int KADVMAX1 = 1;
for (int i = range.Item1; i < range.Item2; i++)
{
for (int j = 1; j <= Program.NJJ; j++)
{
Program.AHK[i][j] = 0;
Program.KKART[i][j] = 0;
//Pointers (to speed up the computations)
float[] UK_L = Program.UK[i][j];
float[] VK_L = Program.VK[i][j];
float[] UKi_L = Program.UK[i + 1][j];
float[] VKj_L = Program.VK[i][j + 1];
double UXint;
double UYint;
double vertk;
double exponent;
double dumfac;
for (int k = Program.NKK; k >= 1; k--)
{
vertk = Program.HOKART[k - 1] + Program.DZK[k] * 0.5;
if (vertk > Program.CUTK[i][j])
{
//interpolation between observations
if (vertk <= Program.MeasurementHeight[1])
{
if (Program.Ob[1][1] <= 0)
{
exponent = Math.Max(0.35 - 0.4 * Math.Pow(Math.Abs(Program.Ob[1][1]), -0.15), 0.05);
}
else
{
exponent = 0.56 * Math.Pow(Program.Ob[1][1], -0.15);
}
dumfac = Math.Pow(vertk / Program.MeasurementHeight[1], exponent);
UXint = Program.UX[1] * dumfac;
UYint = Program.UY[1] * dumfac;
}
else if (vertk > Program.MeasurementHeight[inumm])
{
if (inumm == 1)
{
if (Program.Ob[1][1] <= 0)
{
exponent = Math.Max(0.35 - 0.4 * Math.Pow(Math.Abs(Program.Ob[1][1]), -0.15), 0.05);
}
else
{
exponent = 0.56 * Math.Pow(Program.Ob[1][1], -0.15);
}
dumfac = Math.Pow(vertk / Program.MeasurementHeight[inumm], exponent);
UXint = Program.UX[inumm] * dumfac;
UYint = Program.UY[inumm] * dumfac;
}
else
{
UXint = Program.UX[inumm];
UYint = Program.UY[inumm];
}
}
else
{
int ipo = 1;
for (int iprof = 1; iprof <= inumm; iprof++)
{
if (vertk > Program.MeasurementHeight[iprof])
{
ipo = iprof + 1;
}
}
UXint = Program.UX[ipo - 1] + (Program.UX[ipo] - Program.UX[ipo - 1]) / (Program.MeasurementHeight[ipo] - Program.MeasurementHeight[ipo - 1]) *
(vertk - Program.MeasurementHeight[ipo - 1]);
UYint = Program.UY[ipo - 1] + (Program.UY[ipo] - Program.UY[ipo - 1]) / (Program.MeasurementHeight[ipo] - Program.MeasurementHeight[ipo - 1]) *
(vertk - Program.MeasurementHeight[ipo - 1]);
}
//finally get wind speeds outside obstacles
UK_L[k] = (float)UXint;
VK_L[k] = (float)UYint;
if (i > 1)
{
if (vertk <= Program.CUTK[i - 1][j])
{
UK_L[k] = 0;
}
}
if (j > 1)
{
if (vertk <= Program.CUTK[i][j - 1])
{
VK_L[k] = 0;
}
}
Program.UK[Program.NII + 1][j][k] = Program.UK[Program.NII][j][k];
Program.VK[i][Program.NJJ + 1][k] = Program.VK[i][Program.NJJ][k];
}
else
{
//set wind speed zero inside obstacles
UK_L[k] = 0;
if (i < Program.NII)
{
UKi_L[k] = 0;
}
VK_L[k] = 0;
if (j < Program.NJJ)
{
VKj_L[k] = 0;
}
Program.AHK[i][j] = Math.Max(Program.HOKART[k], Program.AHK[i][j]);
Program.BUI_HEIGHT[i][j] = Program.AHK[i][j];
Program.KKART[i][j] = Convert.ToInt16(Math.Max(k, Program.KKART[i][j]));
if (Program.CUTK[i][j] > 0)
{
KADVMAX1 = Math.Max(Program.KKART[i][j], KADVMAX1);
}
}
}
}
}
if (KADVMAX1 > Program.KADVMAX)
{
lock (obj) { Program.KADVMAX = Math.Max(Program.KADVMAX, KADVMAX1); }
}
});
obj = null;
//maximum z-index up to which the microscale flow field is being computed
Program.KADVMAX = Math.Min(Program.NKK, Program.KADVMAX + Program.VertCellsFF);
Program.AHMIN = 0;
//in case of the diagnostic approach, a boundary layer is established near the obstacle's walls
if (Program.FlowFieldLevel <= 1)
{
Parallel.For((1 + Program.IGEB), (Program.NII - Program.IGEB + 1), Program.pOptions, i =>
{
for (int j = 1 + Program.IGEB; j <= Program.NJJ - Program.IGEB; j++)
{
double entf = 0;
double vertk;
double abmind;
for (int k = 1; k < Program.NKK; k++)
{
abmind = 1;
vertk = Program.HOKART[k - 1] + Program.DZK[k] * 0.5;
//search towards west for obstacles
for (int ig = i - Program.IGEB; ig < i; ig++)
{
entf = 21;
if ((vertk <= Program.AHK[ig][j]) && (Program.CUTK[ig][j] > 0) && (k > Program.KKART[i][j]))
{
entf = Math.Abs((i - ig) * Program.DXK);
}
}
if (entf <= 20)
{
abmind *= 0.19 * Math.Log((entf + 0.5) * 10);
}
//search towards east for obstacles
for (int ig = i + Program.IGEB; ig >= i + 1; ig--)
{
entf = 21;
if ((vertk <= Program.AHK[ig][j]) && (Program.CUTK[ig][j] > 0) && (k > Program.KKART[i][j]))
{
entf = Math.Abs((i - ig) * Program.DXK);
}
}
if (entf <= 20)
{
abmind *= 0.19 * Math.Log((entf + 0.5) * 10);
}
//search towards south for obstacles
for (int jg = j - Program.IGEB; jg < j; jg++)
{
entf = 21;
if ((vertk <= Program.AHK[i][jg]) && (Program.CUTK[i][jg] > 0) && (k > Program.KKART[i][j]))
{
entf = Math.Abs((j - jg) * Program.DYK);
}
}
if (entf <= 20)
{
abmind *= 0.19 * Math.Log((entf + 0.5) * 10);
}
//search towards north for obstacles
for (int jg = j + Program.IGEB; jg >= j + 1; jg--)
{
entf = 21;
if ((vertk <= Program.AHK[i][jg]) && (Program.CUTK[i][jg] > 0) && (k > Program.KKART[i][j]))
{
entf = Math.Abs((j - jg) * Program.DYK);
}
}
if (entf <= 20)
{
abmind *= 0.19 * Math.Log((entf + 0.5) * 10);
}
//search towards north/east for obstacles
for (int ig = i + Program.IGEB; ig >= i + 1; ig--)
{
int jg = j + ig - i;
entf = 21;
if ((vertk <= Program.AHK[ig][jg]) && (Program.CUTK[ig][jg] > 0) && (k > Program.KKART[i][j]))
{
entf = Math.Sqrt(Program.Pow2((i - ig) * Program.DXK) + Program.Pow2((j - jg) * Program.DYK));
}
}
if (entf <= 20)
{
abmind *= 0.19 * Math.Log((entf + 0.5) * 10);
}
//search towards south/west for obstacles
for (int ig = i - Program.IGEB; ig < i; ig++)
{
int jg = j + ig - i;
entf = 21;
if ((vertk <= Program.AHK[ig][jg]) && (Program.CUTK[ig][jg] > 0) && (k > Program.KKART[i][j]))
{
entf = Math.Sqrt(Program.Pow2((i - ig) * Program.DXK) + Program.Pow2((j - jg) * Program.DYK));
}
}
if (entf <= 20)
{
abmind *= 0.19 * Math.Log((entf + 0.5) * 10);
}
//search towards south/east for obstacles
for (int ig = i + Program.IGEB; ig >= i + 1; ig--)
{
int jg = j - ig + i;
entf = 21;
if ((vertk <= Program.AHK[ig][jg]) && (Program.CUTK[ig][jg] > 0) && (k > Program.KKART[i][j]))
{
entf = Math.Sqrt(Program.Pow2((i - ig) * Program.DXK) + Program.Pow2((j - jg) * Program.DYK));
}
}
if (entf <= 20)
{
abmind *= 0.19 * Math.Log((entf + 0.5) * 10);
}
//search towards north/west for obstacles
for (int ig = i - Program.IGEB; ig < i; ig++)
{
int jg = j - ig + i;
entf = 21;
if ((vertk <= Program.AHK[ig][jg]) && (Program.CUTK[ig][jg] > 0) && (k > Program.KKART[i][j]))
{
entf = Math.Sqrt(Program.Pow2((i - ig) * Program.DXK) + Program.Pow2((j - jg) * Program.DYK));
}
}
if (entf <= 20)
{
abmind *= 0.19 * Math.Log((entf + 0.5) * 10);
}
Program.UK[i][j][k] *= (float)abmind;
Program.VK[i][j][k] *= (float)abmind;
}
}
});
}
//computing flow field either with diagnostic or prognostic approach
if (Program.FlowFieldLevel > 0)
{
if (Program.FlowFieldLevel == 1)
{
Console.WriteLine("DIAGNOSTIC WIND FIELD AROUND OBSTACLES");
DiagnosticFlowfield.Calculate();
}
if (Program.FlowFieldLevel == 2)
{
//read vegetation only once
if (Program.VEG[0][0][0] < 0)
{
ProgramReaders Readclass = new ProgramReaders();
Readclass.ReadVegetationDomain();
Readclass.ReadVegetation();
}
Console.WriteLine("PROGNOSTIC WIND FIELD AROUND OBSTACLES");
PrognosticFlowfield.Calculate();
}
//Final mass conservation using poisson equation for pressure after advection has been computed with level 2
if (Program.FlowFieldLevel == 2)
{
DiagnosticFlowfield.Calculate();
}
}
//in diagnostic mode mass-conservation is finally achieved by adjusting the vertical velocity in each cell
if (Program.FlowFieldLevel < 2)
{
Parallel.For(2, Program.NII, Program.pOptions, i =>
{
for (int j = 2; j < Program.NJJ; j++)
{
//Pointers (to speed up the computations)
float[] UK_L = Program.UK[i][j];
float[] UKi_L = Program.UK[i + 1][j];
float[] VK_L = Program.VK[i][j];
float[] VKj_L = Program.VK[i][j + 1];
float[] WK_L = Program.WK[i][j];
double fwo1 = 0;
double fwo2 = 0;
double fsn1 = 0;
double fsn2 = 0;
double fbt1 = 0;
int KKART = Program.KKART[i][j];
for (int k = 1; k < Program.NKK; k++)
{
if (k > KKART)
{
if (k <= Program.KKART[i - 1][j])
{
fwo1 = 0;
}
else
{
fwo1 = Program.DZK[k] * Program.DYK * UK_L[k];
}
if (k <= Program.KKART[i + 1][j])
{
fwo2 = 0;
}
else
{
fwo2 = Program.DZK[k] * Program.DYK * UKi_L[k];
}
if (k <= Program.KKART[i][j - 1])
{
fsn1 = 0;
}
else
{
fsn1 = Program.DZK[k] * Program.DXK * VK_L[k];
}
if (k <= Program.KKART[i][j + 1])
{
fsn2 = 0;
}
else
{
fsn2 = Program.DZK[k] * Program.DXK * VKj_L[k];
}
if ((k <= KKART + 1) || (k == 1))
{
fbt1 = 0;
}
else
{
fbt1 = Program.DXK * Program.DYK * WK_L[k];
}
WK_L[k + 1] = (float)((fwo1 - fwo2 + fsn1 - fsn2 + fbt1) / (Program.DXK * Program.DYK));
}
}
}
});
}
}
/// <summary>
///Define the vertical grid heights and the vertical stretching
///Define the transient arrays
///Load transient temp.async files with saved particle positions within the transient grid
///Load the 3D concentration file
/// </summary>
public static void LoadAndDefine()
{
ProgramReaders Readclass = new ProgramReaders();
Readclass.ReadKeepAndDeleteTransientTempFiles();
Program.HoKartTrans[0] = 0;
Program.DZK_Trans[1] = Program.DZK[1];
Program.HoKartTrans[1] = Program.DZK_Trans[1];
float stretching = 1;
double max = 10;
for (int i = 2; i < Program.VerticalCellMaxBound; i++)
{
Program.DZK_Trans[i] = (float)Math.Min(Program.DZK[1] * stretching, max);
Program.HoKartTrans[i] = Program.HoKartTrans[i - 1] + Program.DZK_Trans[i];
if ((Program.HoKartTrans[i] >= (Program.AHMAX - Program.AHMIN + 300)) && (Program.HoKartTrans[i] >= 800))
{
Program.NKK_Transient = i;
break;
}
if (Program.HoKartTrans[i] > 400)
{
stretching = 20F;
max = 30;
}
else if (Program.HoKartTrans[i] > 250)
{
stretching = 15F;
max = 20;
}
else if (Program.HoKartTrans[i] > 150)
{
stretching = 10F;
max = 15;
}
else if (Program.HoKartTrans[i] > 100)
{
stretching = 2F;
max = 10;
}
else if (Program.HoKartTrans[i] > 60)
{
stretching = 1.5F;
max = 10;
}
else if (Program.HoKartTrans[i] > 30)
{
stretching = 1.2F;
max = 10;
}
}
Program.NKK_Transient = Math.Min(Program.NKK_Transient, Program.VerticalCellMaxBound - 2);
Program.Conz4d = Program.CreateArray <float[][][]>(Program.NII + 2, () => Program.CreateArray <float[][]>(Program.NJJ + 2, () =>
Program.CreateArray <float[]>(Program.NKK_Transient + 2, () => new float[Program.SourceGroups.Count + 1])));
Console.Write(".");
Program.Conz5d = Program.CreateArray <float[][][]>(Program.NII + 2, () => Program.CreateArray <float[][]>(Program.NJJ + 2, () =>
Program.CreateArray <float[]>(Program.NKK_Transient + 2, () => new float[Program.SourceGroups.Count + 1])));
Console.Write(".");
if (File.Exists("GRAL_Vert_Conc.txt"))
{
Program.WriteVerticalConcentration = true;
Program.ConzSsum = Program.CreateArray <float[][]>(Program.NII + 2, () => Program.CreateArray <float[]>(Program.NJJ + 2, () => new float[Program.NKK_Transient + 2]));
}
Program.EmissionPerSG = new double[Program.SourceGroups.Count];
if (Program.IWETstart == 1) // search and read an exising temporarily conz_sum() file and conz4d file in transient mode
{
int temp = Readclass.ReadTransientConcentrations("Transient_Concentrations1.tmp");
if (temp == 0) // error reading this file, try 2nd file
{
temp = Readclass.ReadTransientConcentrations("Transient_Concentrations2.tmp");
}
if (temp > 1) // reading of one of these files was successful
{
// if transient files are deletet (default) -> continue with the weather situation saved in the transient field
// otherwise continue with the user defined weather situation (overrides the default behaviour)
if (Program.TransientTempFileDelete)
{
Program.IWETstart = temp;
}
}
if (Program.WriteVerticalConcentration)
{
Readclass.Read3DTempConcentrations();
}
}
Readclass.ReadSourceTimeSeries();
}