fabm_tsi_def Subroutine

      subroutine fabm_tsi_def(iou,id)
         !! define FABM time series variables in NetCDF context
      integer, intent(in) :: iou
         !! NetCDF file id
      integer, intent(in) :: id(1)
         !! time dimension

         integer :: n

         associate(VAR => model%interior_state_variables)
         do n=1,npelagic
            call defvar ('O_'//trim(VAR(n)%name), iou, 1, id,
     &                 VAR(n)%minimum, VAR(n)%maximum, ' ', 'F',
     &                 trim(VAR(n)%long_name), ' ', trim(VAR(n)%units))
         end do
         end associate

      end subroutine fabm_tsi_def