fabm_sbc_init Subroutine

      subroutine fabm_sbc_init(m)
         !! surface boundary data are handled via sbc(imt,jmt,numsbc) in
         !! setmom.F, tracer.F, gosbc.F, embmio.F
         integer, intent(inout) :: m
            !! number of handled variables handled so far

         integer :: n,nn

         associate(VAR => model%interior_state_variables)
         nn=m
         do n=1,size(model%interior_state_variables)
            mapsbc(nn) = 'ss'//trim(VAR(n)%name)
            mapsbc(nn+1) = trim(VAR(n)%name)//'flx'
            nn = nn+2
            !mapsbc(m+n) = m+n
         end do
         end associate
         m = m+2*numsbc_fabm
      end subroutine fabm_sbc_init