# VERTCON 3 build script for region:  AS
# See DRU-12, p. 143-145
#
# This batch file is to be run AFTER the following scripts have already been run:
#      doit.bat
#      doit2.bat
#      doit3.bat
#      doit4.bat
# It calls various standard "grid manipulation" programs to cut out 
# the "pulled in tension" transformation and error grids around the 
# island of Tutilla itself, then builds "flat plane" transformations for the
# islands of "Ofu-Olsega" and "Ta'u".  The rest of the region gets filled in with
# flag "-999.0"
#
# All code used is listed below:
#  /home/dru/Linux/Mylib/gfill    (Source:  /home/dru/Linux/Mylib/Source/gfill.f)
#  /home/dru/Linux/Mylib/gpull    (Source:  /home/dru/Linux/Mylib/Source/gpull.f)
#  /home/dru/Linux/Mylib/gsplat   (Source:  /home/dru/Linux/Mylib/Source/gsplat.f)
#                          
##########################
# Transformation:
##########################
#
# Step 1:  Fill in the full grid area with flag -999.d0 at 1' x 1' spacing
#
gfill << !
1
188
193  
151
-16
-13
91 
asflag.b
-999.d0
!
#
# Step 2: Pull PART of the actual transformation grid out of the 
# full "04.b" grid (Tutuilla)
#
gpull << !
vmtcdoht.lt.asvd02.as.003.120.120.04.b
as01.b
-14.4
-14.2
189.13333333333333333333333333333333333333333333333333333333
189.46666666666666666666666666666666666666666666666666666666
!
#
# Step 3: Create "flat plane" (constant) transformation for Ofu-Olsega
#
gfill << !
1
190.3
190.4
4
-14.2
-14.1333333333333333333333333333333333333333333333333333333333
3
as02.b
0.0220d0
!
#
# Step 4: Create "flat plane" (constant) transformation for Ta'u
#
gfill << !
1
190.4666666666666666666666666666666666666666666666666666666666
190.6
5
-14.3
-14.2
4
as03.b
0.2180d0
!
#
# Step 5: Drop (splat) the Tutuilla part into the full size flag-filled grid
#
gsplat << !
asflag.b
as01.b
as04.b
!
#
# Step 6: Drop (splat) the Ofu-Olsega part into the grid from step 5
#
gsplat << !
as04.b
as02.b
as05.b
!
#
# Step 7: Drop (splat) the Ta'u part into the grid from step 6
#
gsplat << !
as05.b
as03.b
lt.asvd02.as.trn.b
!
##########################
# Error Grid (uses same "flag" grid as transformation):
##########################
#
# Step 1: Pull PART of the actual error grid out of the 
# full "04.b" grid (Tutuilla)
#
gpull << !
vmeteoht.lt.asvd02.as.003.120.120.b
as01e.b
-14.4
-14.2
189.13333333333333333333333333333333333333333333333333333333
189.46666666666666666666666666666666666666666666666666666666
!
#
# Step 2: Create "flat plane" (constant) error grid for Ofu-Olsega
#
gfill << !
1
190.3
190.4
4
-14.2
-14.1333333333333333333333333333333333333333333333333333333333
3
as02e.b
0.0000d0
!
#
# Step 3: Create "flat plane" (constant) error grid for Ta'u
#
gfill << !
1
190.4666666666666666666666666666666666666666666666666666666666
190.6
5
-14.3
-14.2
4
as03e.b
0.0000d0
!
#
# Step 4: Drop (splat) the Tutuilla part into the full size flag-filled grid
#
gsplat << !
asflag.b
as01e.b
as04e.b
!
#
# Step 5: Drop (splat) the Ofu-Olsega part into the grid from step 4
#
gsplat << !
as04e.b
as02e.b
as05e.b
!
#
# Step 6: Drop (splat) the Ta'u part into the grid from step 5
#
gsplat << !
as05e.b
as03e.b
lt.asvd02.as.err.b
!
##########################
# Clean Up
##########################
#
# Step 1: Remove preliminary files
#
rm -f as01.b
rm -f as02.b
rm -f as03.b
rm -f as04.b
rm -f as05.b
rm -f as01e.b
rm -f as02e.b
rm -f as03e.b
rm -f as04e.b
rm -f as05e.b
rm -f asflag.b