hfields_write

INTERFACE:

   subroutine hfields_write(t, mode)

DESCRIPTION:

Write history tape. If SPMD, first gather the data to the master processor. Issue the netcdf call to write the variable.

USES:

     use ncdio
     use subgridAveMod
     use clmtype  , only : nameg, namel, namec, namep, lndrof, ocnrof
     use decompMod, only : get_proc_bounds, get_proc_global
 #if (defined RTM)
     use RunoffMod, only : get_proc_rof_bounds, get_proc_rof_global
 #endif

ARGUMENTS:

     implicit none
     integer, intent(in) :: t                ! tape index
     character(len=*), intent(in) :: mode    ! 'define' or 'write'

REVISION HISTORY:

   Created by Mariana Vertenstein