source: anuga_work/development/PNG_slide/run_png_test.py @ 6732

"""Script for running a tsunami inundation scenario for Aitape, PNG.

Source data such as elevation and boundary data is assumed to be available in
directories specified by project_slide.py
The output sww file is stored in project_slide.outputtimedir 

The scenario is defined by a triangular mesh created from project_slide.polygon,
the elevation data and a tsunami wave generated by s submarine mass failure.

Bridgette Lewis, GA - 2008
"""

#-------------------------------------------------------------------------------
# Import necessary modules
#-------------------------------------------------------------------------------

# Standard modules
import os
import time
from shutil import copy
from os.path import dirname, basename
from os import mkdir, access, F_OK, sep
import sys

# Related major packages
from anuga.shallow_water import Domain, Reflective_boundary, Dirichlet_boundary 
from anuga.shallow_water.data_manager import convert_dem_from_ascii2netcdf, dem2pts
from anuga.geospatial_data.geospatial_data import *
from anuga.abstract_2d_finite_volumes.util import start_screen_catcher, copy_code_files

# Application specific imports
import project_slide              # Definition of file names and polygons

#-------------------------------------------------------------------------------
# Copy scripts to time stamped output directory and capture screen
# output to file
#-------------------------------------------------------------------------------

# creates copy of code in output dir 
copy_code_files(project_slide.outputtimedir,__file__,dirname(project_slide.__file__)+sep+ project_slide.__name__+'.py' )
myid = 0
numprocs = 1
start_screen_catcher(project_slide.outputtimedir, myid, numprocs)

print 'USER:    ', project_slide.user

#-------------------------------------------------------------------------------
# Preparation of topographic data
#
# Convert ASC 2 DEM 2 PTS using source data and store result in source data
#-------------------------------------------------------------------------------

# filenames
on_offshore25_dem_name = project_slide.on_offshore25_dem_name
on_offshore100_dem_name = project_slide.on_offshore100_dem_name
nsw_dem_name = project_slide.nsw_dem_name
meshname = project_slide.meshname+'.msh'

# creates DEM from asc data
convert_dem_from_ascii2netcdf(on_offshore25_dem_name, use_cache=True, verbose=True)
convert_dem_from_ascii2netcdf(on_offshore100_dem_name, use_cache=True, verbose=True)
convert_dem_from_ascii2netcdf(nsw_dem_name, use_cache=True, verbose=True)

#creates pts file for onshore DEM
dem2pts(on_offshore25_dem_name,
        easting_min=project_slide.eastingmin25,
        easting_max=project_slide.eastingmax25,
        northing_min=project_slide.northingmin25,
        northing_max= project_slide.northingmax25,
        use_cache=True, verbose=True)
dem2pts(on_offshore100_dem_name,
        easting_min=project_slide.eastingmin100,
        easting_max=project_slide.eastingmax100,
        northing_min=project_slide.northingmin100,
        northing_max= project_slide.northingmax100,
        use_cache=True, verbose=True)
dem2pts(nsw_dem_name,
        easting_min=project_slide.eastingmin_nsw,
        easting_max=project_slide.eastingmax_nsw,
        northing_min=project_slide.northingmin_nsw,
        northing_max= project_slide.northingmax_nsw,
        use_cache=True, verbose=True)

print 'create offshore'
G11 = Geospatial_data(file_name = project_slide.offshore_dem_name1 + '.xya')+\
      Geospatial_data(file_name = project_slide.offshore_dem_name2 + '.xya')+\
      Geospatial_data(file_name = project_slide.offshore_dem_name3 + '.xya')
G12 = Geospatial_data(file_name = project_slide.offshore_dem_name4 + '.xya')+\
      Geospatial_data(file_name = project_slide.offshore_dem_name5 + '.xya')+\
      Geospatial_data(file_name = project_slide.offshore_dem_name6 + '.xya')+\
      Geospatial_data(file_name = project_slide.offshore_dem_name7 + '.xya')+\
      Geospatial_data(file_name = project_slide.offshore_dem_name8 + '.xya')+\
      Geospatial_data(file_name = project_slide.offshore_dem_name9 + '.xya')
print 'create onshore'
G2 = Geospatial_data(file_name = project_slide.on_offshore25_dem_name + '.pts')
G3 = Geospatial_data(file_name = project_slide.on_offshore100_dem_name + '.pts')
G4 = Geospatial_data(file_name = project_slide.nsw_dem_name + '.pts')
print 'add'
G = G11.clip(Geospatial_data(project_slide.poly_surveyclip)) +\
    G12.clip(Geospatial_data(project_slide.polyAll)) +\
    G2.clip(Geospatial_data(project_slide.poly_25mclip)) +\
    G3.clip(Geospatial_data(project_slide.poly_origsyd)) +\
    (G4.clip(Geospatial_data(project_slide.polyAll))).clip_outside(Geospatial_data(project_slide.poly_surveyclip)).clip_outside(Geospatial_data(project_slide.poly_origsyd))
print 'export points'
G.export_points_file(project_slide.combined_dem_name + '.pts')
#G.export_points_file(project_slide.combined_dem_name + '.xya')

#----------------------------------------------------------------------------
# Create the triangular mesh based on overall clipping polygon with a tagged
# boundary and interior regions defined in project_slide.py along with
# resolutions (maximal area of per triangle) for each polygon
#-------------------------------------------------------------------------------

from anuga.pmesh.mesh_interface import create_mesh_from_regions
remainder_res = 1000000.
local_res = 50000.
coast_res = 50000.
interior_regions = [[project_slide.poly_syd1, local_res],
                    [project_slide.poly_coast, coast_res]]

from caching import cache
_ = cache(create_mesh_from_regions,
          project_slide.polyAll,
           {'boundary_tags': {'e0': [0], 'e1': [1], 'e2': [2],
                              'e3': [3], 'e4':[4]},
           'maximum_triangle_area': remainder_res,
           'filename': meshname,
           'interior_regions': interior_regions},
          verbose = True, evaluate=False)
print 'created mesh'

#-------------------------------------------------------------------------------                                 
# Setup computational domain
#-------------------------------------------------------------------------------                                 
domain = Domain(meshname, use_cache = True, verbose = True)

print 'Number of triangles = ', len(domain)
print 'The extent is ', domain.get_extent()
print domain.statistics()

domain.set_name(project_slide.basename)
domain.set_datadir(project_slide.outputtimedir)
domain.set_quantities_to_be_stored(['stage', 'xmomentum', 'ymomentum'])
domain.set_minimum_storable_height(0.01)

#-------------------------------------------------------------------------------                                 
# Setup initial conditions
#-------------------------------------------------------------------------------

tide = 0.0
domain.set_quantity('stage', tide)
domain.set_quantity('friction', 0.0) 
domain.set_quantity('elevation', 
                    filename = project_slide.combined_dem_name + '.pts',
                    use_cache = True,
                    verbose = True,
                    alpha = 0.1
                    )

#-------------------------------------------------------------------------------
# Set up scenario (tsunami_source is a callable object used with set_quantity)
#-------------------------------------------------------------------------------

    
from smf import slide_tsunami    
tsunami_source = slide_tsunami(length=project_slide.shovel_length,
                               width=project_slide.shovel_width,
                               depth=project_slide.shovel_depth,
                               slope=project_slide.shovel_slope,
                               thickness=project_slide.shovel_thickness, 
                               x0=project_slide.slide_origin_shovel_b[0], 
                               y0=project_slide.slide_origin_shovel_b[1], 
                               alpha=project_slide.shovel_alpha, 
                               domain=domain)

#-------------------------------------------------------------------------------                                 
# Setup boundary conditions
#-------------------------------------------------------------------------------
print 'Available boundary tags', domain.get_boundary_tags()

Br = Reflective_boundary(domain)
Bd = Dirichlet_boundary([tide,0,0])

domain.set_boundary( {'e0': Bd,  'e1': Bd, 'e2': Bd, 'e3': Bd, 'e4': Bd} )


#-------------------------------------------------------------------------------                                 
# Evolve system through time
#-------------------------------------------------------------------------------
import time
from Numeric import allclose
from anuga.abstract_2d_finite_volumes.quantity import Quantity

t0 = time.time()

for t in domain.evolve(yieldstep = 30, finaltime = 5000): 
    domain.write_time()
    domain.write_boundary_statistics(tags = 'e2')
    stagestep = domain.get_quantity('stage') 

    if allclose(t, 30):
        slide = Quantity(domain)
        slide.set_values(tsunami_source)
        domain.set_quantity('stage', slide + stagestep)
    
print 'That took %.2f seconds' %(time.time()-t0)

print 'finished'