ta_fabm_tsi Subroutine

      subroutine ta_fabm_tsi(m,ntatio,tbar)
         !! define FABM variables in NetCDF context
      integer, intent(in) :: m
         !! switch operations
      integer, intent(in), optional :: ntatio
         !! switch operations
      real, intent(in), optional :: tbar(:)
         !! slice of UVic maintained temporary variable

         integer :: n
         real :: rntatio

         if (m .eq. 0) then ! initialize
            tai_fabm = 0.
         else if (m .eq. 1) then ! accumulate
             tai_fabm(:) = tai_fabm(:) + tbar(:)
         else if (m .eq. 2 .and. ntatio .ne. 0) then
            rntatio = 1./float(ntatio)
            tai_fabm(:) = tai_fabm(:)*rntatio
         end if

      end subroutine ta_fabm_tsi