fabm_tsi_out Subroutine

      subroutine fabm_tsi_out(iou,ntrec)
         !! define FABM variables in NetCDF context
      integer, intent(in) :: iou
         !! NetCDF file id
      integer, intent(in) :: ntrec
         !! time record

         integer :: n

         real, parameter :: c0 = 0.
         real, parameter :: c1 = 1.

         associate(VAR => model%interior_state_variables)
         do n=1,npelagic
            call putvars ('O_'//trim(VAR(n)%name), iou, ntrec, 
     &                    tai_fabm(n), c1, c0)
         end do
         end associate

      end subroutine fabm_tsi_out