Lines Matching refs:nsidl
537 integer nsidl ! number of surface IDs on-proc local
558 nsidl=0 ! initialize # of sids on this processor
566 if(nsidl.eq.0) then ! if this is the first sid we've seen
567 nsidl=1 ! increment our count and
573 do j = 1, nsidl ! check the assumption
577 if(j.ne.nsidl) then ! ...
582 nsidl = nsidl + 1 ! increment our count
593 if(nsidl.gt.0) then
594 allocate( sidmapl(nsidl) )
596 do j = 1, nsidl
598 if(j.ne.nsidl) sidelt => sidelt%next
617 call MPI_ALLGATHER(nsidl,1,MPI_INTEGER,nsid,1,
626 nsid=nsidl
627 nsidt=nsidl
664 call MPI_ALLGATHERV(sidmapl(:),nsidl,
698 nsidg=nsidl