Subversion Repositories lagranto.wrf

Rev

Rev 8 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8 Rev 11
Line 2... Line 2...
2 
 
 2 
 
3 
# -----------------------------------------------------------------------------
 3 
# -----------------------------------------------------------------------------
4 
# Handle parameters
 4 
# Handle parameters
5 
# -----------------------------------------------------------------------------
 5 
# -----------------------------------------------------------------------------
6 
 
 6 
 
- 
 
 7 
# Set Lagranto
- 
 
 8 
set LAGRANTO = ${LAGRANTOBASE}.${MODEL}/
- 
 
 9 
 
7 
# Write usage information
 10 
# Write usage information
8 
if ( ${#argv} == 0) then
 11 
if ( ${#argv} == 0) then
9 
  echo
12 
  echo
10 
  ${LAGRANTO}/bin/lagrantohelp wrfmap short
 13 
  ${LAGRANTO}/bin/lagrantohelp wrfmap short
11 
  echo
14 
  echo
Line 72... Line 75...
72 
     set inpfile   = $2
 75 
     set inpfile   = $2
73 
     set outfile   = $3
 76 
     set outfile   = $3
74 
   endif
 77 
   endif
75 
endif
 78 
endif
76 
 
 79 
 
- 
 
 80 
if ( "${mode}" == "-mapscale" ) then
- 
 
 81 
   if ( $#argv == 2 ) then
- 
 
 82 
      set nfilter = $2
- 
 
 83 
   else
- 
 
 84 
      set nfilter = 0
- 
 
 85 
   endif
- 
 
 86 
endif
- 
 
 87 
 
77 
# -----------------------------------------------------------------------------
 88 
# -----------------------------------------------------------------------------
78 
# Create mapping file
 89 
# Create mapping file
79 
# -----------------------------------------------------------------------------
 90 
# -----------------------------------------------------------------------------
80 
 
 91 
 
81 
if ( "${mode}" == "-create" ) then
 92 
if ( "${mode}" == "-create" ) then
Line 269... Line 280...
269 
if ( "${mode}" == "-mapscale" ) then
 280 
if ( "${mode}" == "-mapscale" ) then
270
281
271 
# Prepare parameter file and run Fortran code
 282 
# Prepare parameter file and run Fortran code
272 
\rm -f wrfmap.param
283 
\rm -f wrfmap.param
273 
echo \"${mode}\"      >! wrfmap.param
 284 
echo \"${mode}\"      >! wrfmap.param
- 
 
 285 
echo ${nfilter}       >> wrfmap.param
274 
 
 286 
 
275 
${LAGRANTO}/goodies/wrfmap
 287 
${LAGRANTO}/goodies/wrfmap
276 
 
 288 
 
277 
# Make clean
 289 
# Make clean
278 
\rm -f wrfmap.param
 290 
\rm -f wrfmap.param