[Dart-dev] DART/branches Revision: 11080

[dart at ucar.edu]

hendric at ucar.edu
2017-02-09 15:08:00 -0700 (Thu, 09 Feb 2017)
45
updating bgrid to be single file compliant.




Modified: DART/branches/rma_single_file/io/state_space_diag_mod.f90
===================================================================
--- DART/branches/rma_single_file/io/state_space_diag_mod.f90	2017-02-09 21:51:18 UTC (rev 11079)
+++ DART/branches/rma_single_file/io/state_space_diag_mod.f90	2017-02-09 22:08:00 UTC (rev 11080)
@@ -283,7 +283,7 @@
    
    call nc_check(nf90_enddef(ncFileID%ncid), 'init_singlefile_output', 'enddef '//trim(fname))
 
-   call nc_check(nf90_sync(ncFileID%ncid), 'init_inglefile_output', 'sync '//trim(fname))               
+   call nc_check(nf90_sync(ncFileID%ncid), 'init_singlefile_output', 'sync '//trim(fname))               
    !----------------------------------------------------------------------------
    ! Define the model-specific components
    !----------------------------------------------------------------------------
@@ -293,7 +293,9 @@
       call error_handler(E_MSG,'init_diag_output',msgstring,source,revision,revdate)
    endif
 
-   call write_model_attributes(ncFileID, MemberDimID, TimeDimID)
+   if ( .not. local_model_mod_will_write_state_variables ) then
+      call write_model_attributes(ncFileID, MemberDimID, TimeDimID)
+   endif
 
    !----------------------------------------------------------------------------
    ! Create variables and attributes.

Modified: DART/branches/rma_single_file/models/bgrid_solo/model_mod.f90
===================================================================
--- DART/branches/rma_single_file/models/bgrid_solo/model_mod.f90	2017-02-09 21:51:18 UTC (rev 11079)
+++ DART/branches/rma_single_file/models/bgrid_solo/model_mod.f90	2017-02-09 22:08:00 UTC (rev 11080)
@@ -1497,8 +1497,8 @@
 ! We need the dimension ID for the number of copies 
 !-------------------------------------------------------------------------------
 
-call check(nf90_inq_dimid(ncid=ncFileID, name="copy", dimid=MemberDimID),"copy dimid")
-call check(nf90_inq_dimid(ncid=ncFileID, name="time", dimid=  TimeDimID),"time dimid")
+call check(nf90_inq_dimid(ncid=ncFileID, name="member", dimid=MemberDimID),"member dimid")
+call check(nf90_inq_dimid(ncid=ncFileID, name="time",   dimid=  TimeDimID),"time dimid")
 
 if ( TimeDimID /= unlimitedDimId ) then
    write(errstring,*)"Time Dimension ID ",TimeDimID, &