rowi_fabm Subroutine

      subroutine rowi_fabm()
         !! this is done in fabm_initialize_state() - but check !!KB
         !! setmom.F - if (.not. init) then - around line 299
         integer :: n

         associate(VAR => model%interior_state_variables)
         do n=1,npelagic
         !   t(:,:,:,n,1) = VAR(n)%c0
         end do
         end associate

      end subroutine rowi_fabm