[Dart-dev] DART/branches Revision: 11567

[dart at ucar.edu]

nancy at ucar.edu
2017-05-01 15:19:42 -0600 (Mon, 01 May 2017)
273
make nc_write_model_atts() match the new interface.
give an initial guess at nc_write_model_vars().  it is
*not* being called by anything yet.  if the data is
distributed across tasks we have to give the model_mod
a way to gather it or a distributed write routine to use.




Modified: DART/branches/model_mod_changes/models/utilities/default_model_mod.f90
===================================================================
--- DART/branches/model_mod_changes/models/utilities/default_model_mod.f90	2017-05-01 21:16:19 UTC (rev 11566)
+++ DART/branches/model_mod_changes/models/utilities/default_model_mod.f90	2017-05-01 21:19:42 UTC (rev 11567)
@@ -150,23 +150,22 @@
 
 !------------------------------------------------------------------
 
-subroutine nc_write_model_atts(ncFileID, model_mod_writes_state_variables) 
+subroutine nc_write_model_atts(ncid, domain_id) 
 
-integer, intent(in)  :: ncFileID   
-logical, intent(out) :: model_mod_writes_state_variables
+integer, intent(in) :: ncid
+integer, intent(in) :: domain_id
 
-model_mod_writes_state_variables = .false.
-
 end subroutine nc_write_model_atts
 
 !------------------------------------------------------------------
 
-subroutine nc_write_model_vars( ncFileID, statevec, memberindex, timeindex)
+subroutine nc_write_model_vars(ncid, domain_id, state_ens_handle, memberindex, timeindex)
 
-integer,                intent(in) :: ncFileID      
-real(r8), dimension(:), intent(in) :: statevec
-integer,                intent(in) :: memberindex
-integer,                intent(in) :: timeindex
+integer,             intent(in) :: ncid      
+integer,             intent(in) :: domain_id
+type(ensemble_type), intent(in) :: state_ens_handle
+integer, optional,   intent(in) :: memberindex
+integer, optional,   intent(in) :: timeindex
 
 end subroutine nc_write_model_vars