[Dart-dev] DART/branches Revision: 11617

[dart at ucar.edu]

nancy at ucar.edu
2017-05-10 09:37:28 -0600 (Wed, 10 May 2017)
114
should not deal with member, copy, or time in
nc_write_model_atts() anymore.  just define the grids
and get out.




Modified: DART/branches/rma_trunk/models/bgrid_solo/model_mod.f90
===================================================================
--- DART/branches/rma_trunk/models/bgrid_solo/model_mod.f90	2017-05-09 23:30:06 UTC (rev 11616)
+++ DART/branches/rma_trunk/models/bgrid_solo/model_mod.f90	2017-05-10 15:37:28 UTC (rev 11617)
@@ -1439,9 +1439,9 @@
 !-----------------------------------------------------------------------------------------
 
 integer :: nDimensions, nVariables, nAttributes, unlimitedDimID
-integer :: TmpIDimID, TmpJDimID, levDimID, tracerDimID, VelIDimID, VelJDimID, MemberDimID
+integer :: TmpIDimID, TmpJDimID, levDimID, tracerDimID, VelIDimID, VelJDimID
 integer :: TmpIVarID, TmpJVarID, levVarID, tracerVarID, VelIVarID, VelJVarID, StateVarID
-integer :: StateVarVarID, TimeDimID
+integer :: StateVarVarID
 integer :: psVarID, tVarID, rVarID, uVarID, vVarID
 integer :: tis, tie, tjs, tje       ! temperature grid start/stop
 integer :: vis, vie, vjs, vje       ! velocity    grid start/stop
@@ -1481,19 +1481,6 @@
 call nc_redef(ncFileID)
 
 !-------------------------------------------------------------------------------
-! We need the dimension ID for the number of copies 
-!-------------------------------------------------------------------------------
-
-call nc_check(nf90_inq_dimid(ncid=ncFileID, name="member", dimid=MemberDimID),"member dimid")
-call nc_check(nf90_inq_dimid(ncid=ncFileID, name="time",   dimid=  TimeDimID),"time dimid")
-
-if ( TimeDimID /= unlimitedDimId ) then
-   write(errstring,*)"Time Dimension ID ",TimeDimID, &
-                     " should equal Unlimited Dimension ID",unlimitedDimID
-   call error_handler(E_ERR,"nc_write_model_atts", errstring, source, revision, revdate)
-endif
-
-!-------------------------------------------------------------------------------
 ! Write Global Attributes 
 !-------------------------------------------------------------------------------