hfields_write

INTERFACE:

   subroutine hfields_write (t)

DESCRIPTION:

   Write history tape. If SPMD, first gather the data to the master processor.  
   Issue the netcdf call to write the variable.
   !USES
     use clmpoint
     use clm_varpar, only : lsmlon, lsmlat, nlevsoi
     use mapxy, only : vec2xy
 #if ( defined SPMD )
     use spmdMod, only : masterproc, gather_data_to_master
 #else
     use spmdMod, only : masterproc
 #endif
     use shr_sys_mod, only : shr_sys_flush

ARGUMENTS:

     implicit none
     integer, intent(in) :: t                ! tape index
   !REVISION HISTORY
   Created by Mariana Vertenstein