#!/bin/csh

# --------------------------------
# Create Basemap Topgraphy MMI Map 
# --------------------------------

# Set Parameters
# --------------
  set NRUN    = 11C
  set NAME    = MMI.$NRUN     
  set MMIGRD  = mmi$NRUN.grd
  set REGION  = -123.1/-120.9/037.3/039.3
  set REGION  = -123.1/-120.9/037.3/038.7
  set REGION  = -123.1/-120.9/037.3/038.8
  set COORD0  = "-119.01 36.77 126.0"       # lower-left of fd grid
  set SCALE   = 1.0
  set JP      = M5.00
  set JP      = M15.00
  set JP      = M20.00
  set AXIS    = a1.0f0.5/a0.5f0.5WSen
  set MBAR    = fx0.75/0.35/36.0/050.
  set MBAR    = fx2.25/1.05/36.0/050.
  set MBAR    = fx3.00/1.40/36.0/050.
  set TOPOI   = topo.i.grd
  set SPAR    = "-D02.5/-0.8/2.0/0.15h"
  set SPAR    = "-D07.5/-2.4/6.0/0.45h"
  set SPAR    = "-D10.0/-3.2/8.0/0.60h"
  set PPAR    = "-R -JM -B"
  set CPAR    = "-Dfull -Ia/1/100/100/255       -N2/3 -S200/200/255"
  set CPAR    = "-Dfull -Ia/3/100/100/255       -N2/3 -S200/200/255"
  set CPAR    = "-Dfull -Ia/6/100/100/255       -N2/3 -S200/200/255"
  gmtset        COLOR_MODEL HSV
  gmtset        COLOR_MODEL RGB
  gmtset        LABEL_FONT_SIZE 30p
  gmtset        LABEL_FONT_SIZE 10p
  gmtset        HEADER_FONT_SIZE 24p
  gmtset        HEADER_FONT_SIZE 72p
  gmtset        PAPER_MEDIA legal
  gmtset        PAPER_MEDIA letter
  gmtset        PAPER_MEDIA archD

# Get MMI Values
# --------------
  if (0) then
  runmmi
  endif

# Create MMI Grd File
# -------------------
  if (0) then
  a2e3d 631 321 < $NAME > tmp.e3d
  imagexyz 1.0 $SCALE 1 < tmp.e3d > tmp.a
  getllv1 $COORD0 < tmp.a > tmp.llv
  surface tmp.llv -G$MMIGRD -R$REGION -I0.250m -S0.0 -N250 -T0.35i -T0.35b -C
  endif

# Get Topography
# --------------
  if (0) then
  grdraster 2 -R$REGION  -Gustopo.grd -I0.500m
  grd2xyz ustopo.grd > ustopo.xyz
  blockmean ustopo.xyz -R$REGION   -I0.250m > topo.xyz
  surface topo.xyz -Gtopo.grd -R$REGION -I0.250m -S0.0 -N250 -T0.35i -T0.35b -C
  grdgradient topo.grd -A0 -Gtopo.i.grd -Nt -M -V >& /dev/null
  endif

# Create Auxiliary Files
# ----------------------
  if (1) then
  echo "-122.55      37.75   "  >   epi.xy
  endif

# Plot Map
# --------
  if (1) then
 #psbasemap -R$REGION  -J$JP -B$AXIS -X2.0 -Y03.0           -P    -K >! plot.ps
 #psbasemap -R$REGION  -J$JP -B$AXIS -X6.0 -Y09.0           -P    -K >! plot.ps
  psbasemap -R$REGION  -J$JP -B$AXIS -X1.0 -Y12.0           -P    -K >! plot.ps
  grdimage     $MMIGRD -R -JM -Cmmi10.cpt     -I$TOPOI         -O -K >> plot.ps
  pscoast $PPAR $CPAR                                          -O -K >> plot.ps
 #psxy    jennings.xy $PPAR -M -W04/255/000/000                -O -K >> plot.ps
  psxy    jennings.xy $PPAR -M -W10/255/000/000                -O -K >> plot.ps
 #psxy    ca_roads.xy $PPAR -M -W0/200                         -O -K >> plot.ps
  psxy    ca_roads.xy $PPAR -M -W6/200                         -O -K >> plot.ps
 #psxy    epi.xy      $PPAR -Sa0.2 -G255/0/0 -W4/0             -O -K >> plot.ps
  psxy    epi.xy      $PPAR -Sa0.6 -G255/0/0 -W8/0             -O -K >> plot.ps
  pstext  cities.txt  $PPAR                                    -O -K >> plot.ps
 #psscale $SPAR -Cmmi10.cpt -B002:"MMI Shaking Intesity":      -O -K >> plot.ps
  psbasemap -R -J$JP -B$AXIS -L$MBAR                           -O    >> plot.ps
  endif

# Cleanup
# -------
  \rm -f tmp.e3d tmp.a tmp.llv tmp.xyz tmp.grd 
  \rm -f ustopo.xyz topo.xyz ustopo.grd topo.grd
  \rm -f epi.xy
 #\rm -f $MMIGRD

