[Dart-dev] DART/branches Revision: 12308

[dart at ucar.edu]

hendric at ucar.edu
2018-01-10 16:34:32 -0700 (Wed, 10 Jan 2018)
185

using get_dims_from_qty instead of get_dims_from_varid,
from the state structure, to make sure that we get a valid
number of dimensions for quanties that are not in the
state vector.




Modified: DART/branches/recam/models/cam-fv/model_mod.f90
===================================================================
--- DART/branches/recam/models/cam-fv/model_mod.f90	2018-01-10 23:25:00 UTC (rev 12307)
+++ DART/branches/recam/models/cam-fv/model_mod.f90	2018-01-10 23:34:32 UTC (rev 12308)
@@ -1358,7 +1358,7 @@
 
    ! 2d fields
    case(VERTISUNDEF, VERTISSURFACE)
-      if (get_num_dims(domain_id,var_id) == 2) then
+      if (get_dims_from_qty(obs_qty, var_id) == 2) then
          bot_levs(:) = nlevels
          top_levs(:) = nlevels - 1
          vert_fracts(:) = 1.0_r8