[Dart-dev] [3451]
DART/trunk/location/threed_sphere/location_mod.f90:
Allow the interactive create routine to let you set the vertical location to
be
nancy at ucar.edu
nancy at ucar.edu
Wed Jul 9 10:36:41 MDT 2008
An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20080709/87365135/attachment.html
-------------- next part --------------
Modified: DART/trunk/location/threed_sphere/location_mod.f90
===================================================================
--- DART/trunk/location/threed_sphere/location_mod.f90 2008-07-09 14:50:11 UTC (rev 3450)
+++ DART/trunk/location/threed_sphere/location_mod.f90 2008-07-09 16:36:40 UTC (rev 3451)
@@ -722,6 +722,9 @@
!write(*, *) 'Vertical co-ordinate height (in gpm)'
read(*, *) location%vloc
location%vloc = 100.0 * location%vloc ! only applies to pressure
+else if(location%which_vert == VERTISUNDEF ) then
+ ! a valid floating point value, but should be unused.
+ location%vloc = MISSING_R8
else
write(*, *) 'Wrong choice of which_vert try again between ',VERTISUNDEF, &
' and ',VERTISHEIGHT
More information about the Dart-dev
mailing list