[Dart-dev] DART/branches Revision: 11619

[dart at ucar.edu]

nancy at ucar.edu
2017-05-10 15:47:36 -0600 (Wed, 10 May 2017)
59
don't fail if Time isn't a dimension.  instead,
make one.




Modified: DART/branches/rma_trunk/models/wrf/model_mod.f90
===================================================================
--- DART/branches/rma_trunk/models/wrf/model_mod.f90	2017-05-10 17:43:16 UTC (rev 11618)
+++ DART/branches/rma_trunk/models/wrf/model_mod.f90	2017-05-10 21:47:36 UTC (rev 11619)
@@ -3738,8 +3738,14 @@
 !-----------------------------------------------------------------
 
 !>@todo all the wrf files use Time as the first dimension
+!> but if we are creating a file from scratch, we need this
+!> to be made
 ret = nf90_inq_dimid(ncid, "Time", TimeDimID)
-call nc_check(ret, context, 'inquire Time dimension')
+if (ret /= NF90_NOERR) then
+   call nc_check(nf90_def_dim(ncid=ncid, name="Time", &
+                 len = 1,  dimid = TimeDimID), &
+                 'nc_write_model_atts','def_dim domain')
+endif
 
 !>@todo FIXME we shouldn't need domain anymore because this
 !> routine is called once per domain.