I get tocouple two areas of meshes using the USSATC like:
SRC.1 :
Code: Select all
numsat = -1
namsat = ' '
iwarns = 1
nbcsat = 1
do ii = 1, nbcsat
if (ii .eq. 1) then
call defsat(numsat, namsat, 'all[]', ' ', ' ', 'coupled1', iwarns)
endif
enddo
SRC.2:
Code: Select all
numsat = -1
namsat = ' '
iwarns = 1
nbcsat = 1
do ii = 1, nbcsat
call defsat(numsat, namsat, 'all[]', ' ', ' ', 'coupled2', iwarns)
endif
enddo
SRC.1
Code: Select all
numsat = -1
iwarns = 1
nbcsat = 3
do ii = 1, nbcsat
numsat = 1
call defsat(numsat, namsat, 'all[]', ' ', ' ', 'coupled1', iwarns)
endif
enddo
Code: Select all
numsat = -1
iwarns = 1
nbcsat = 3
do ii = 1, nbcsat
numsat = 1
call defsat(numsat, namsat, 'all[]', ' ', ' ', 'couple0', iwarns)
else if (ii .eq. 2) then
numsat = 3
call defsat(numsat, namsat, 'all[]', ' ', ' ', 'couple1', iwarns)
endif
enddo
Code: Select all
numsat = -1
iwarns = 1
nbcsat = 3
do ii = 1, nbcsat
if (ii .eq. 2) then
numsat = 3
call defsat(numsat, namsat, 'all[]', ' ', ' ', 'couple2', iwarns)
endif
enddo