[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]

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