R-MET-R-MOD/DFWExample.R at master · YoJimboDurant/R-MET-R-MOD · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
# this demonstrates the workings of the 4 functions to get TD6405 AERMINUTE DATA, TD3505 hour data, and create input files, then run AERMINUTE

# this demonstrates the workings of the 4 functions to get TD6405 AERMINUTE DATA, TD3505 hour data, and create input files, then run AERMINUTE

source("writeTD6405.R")
source("writeTD3505.R")
source("writeAMInpfile.R")
source("runAerminute.R")
source("writeFSL.R")

source("writeAERMETinp.R")
source("aerSurf.R")
source("surfCheck.R")

writeTD6405("KDFW", 2006,2010)
writeTD3505(722590,"03927", 2006, 2010)
writeAMInpfile(ifg="n", start=2006, stop=2010)
runAerminute(2006,2010)

# get upper air data
writeFSL(72249, 2006, 2010)

# get aersurface data
aerSurf.R(2006,2010)

#aermet input (all 3 stages)
writeAermetInp(2006,2010)

# run aermet
runAermetS1(2006,2010, S1Name="S1")
runAermetS1(2006,2010, S1Name="S2")
runAermetS1(2006,2010, S1Name="S3")

#check results
surfCheck(2006,2010)