hfields_write

INTERFACE:

   subroutine hfields_write(t, mode)

DESCRIPTION:

Write history tape. Issue the call to write the variable.

USES:

     use clmtype

ARGUMENTS:

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

REVISION HISTORY:

   Created by Mariana Vertenstein

LOCAL VARIABLES: