[Dart-dev] DART/branches Revision: 12183

[dart at ucar.edu]

nancy at ucar.edu
2017-12-06 09:05:31 -0700 (Wed, 06 Dec 2017)
48
allow to interpolate pressure at any location.




Modified: DART/branches/recam/models/cam-fv/model_mod.f90
===================================================================
--- DART/branches/recam/models/cam-fv/model_mod.f90	2017-12-05 22:42:58 UTC (rev 12182)
+++ DART/branches/recam/models/cam-fv/model_mod.f90	2017-12-06 16:05:31 UTC (rev 12183)
@@ -915,6 +915,8 @@
    select case (obs_quantity)
       case (QTY_SURFACE_ELEVATION)
          get_dims_from_qty = 2
+      case (QTY_PRESSURE)
+         get_dims_from_qty = 3
       case default 
          write(string1, *) 'we can not interpolate qty', obs_quantity, &
                            ' if the dimension is not known'