| File |
Line number |
Procedure |
Code |
|
./pkg/compon_communic/mitcomponent_init.F |
35 |
MITCOMPONENT_INIT |
call MITCPLR_INIT1( myTypeStr, couplerFlag ) |
|
./pkg/compon_communic/mitcomponent_init.F |
41 |
MITCOMPONENT_INIT |
call MITCPLR_INIT2A( myTypeStr ) |
|
./pkg/compon_communic/mitcomponent_init.F |
5 |
MITCOMPONENT_INIT |
subroutine MITCOMPONENT_INIT( myTypeStr, MPI_COMM_local ) |
|
./pkg/compon_communic/mitcomponent_init.F |
9 |
MITCOMPONENT_INIT |
character*(*) myTypeStr |
|
./pkg/compon_communic/mitcoupler_init.F |
35 |
MITCOUPLER_INIT |
call MITCPLR_INIT1( myTypeStr, couplerFlag ) |
|
./pkg/compon_communic/mitcoupler_init.F |
41 |
MITCOUPLER_INIT |
call MITCPLR_INIT2B( myTypeStr ) |
|
./pkg/compon_communic/mitcoupler_init.F |
5 |
MITCOUPLER_INIT |
subroutine MITCOUPLER_INIT( myTypeStr, MPI_COMM_local ) |
|
./pkg/compon_communic/mitcoupler_init.F |
9 |
MITCOUPLER_INIT |
character*(*) myTypeStr |
|
./pkg/compon_communic/mitcplr_init1.F |
106 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
110 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
113 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
124 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
137 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
147 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
158 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
168 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
182 |
MITCPLR_INIT1 |
compind=mitcplr_match_comp( myTypeStr ) |
|
./pkg/compon_communic/mitcplr_init1.F |
189 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
197 |
MITCPLR_INIT1 |
if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
201 |
MITCPLR_INIT1 |
if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
203 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
210 |
MITCPLR_INIT1 |
if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
214 |
MITCPLR_INIT1 |
if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
216 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
223 |
MITCPLR_INIT1 |
& myTypeStr,'.',j,'.clog' |
|
./pkg/compon_communic/mitcplr_init1.F |
227 |
MITCPLR_INIT1 |
write(LogUnit,*) 'This is "',myTypeStr,'"' |
|
./pkg/compon_communic/mitcplr_init1.F |
35 |
MITCPLR_INIT1 |
if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
39 |
MITCPLR_INIT1 |
if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
41 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
5 |
MITCPLR_INIT1 |
subroutine MITCPLR_INIT1( myTypeStr, couplerFlag ) |
|
./pkg/compon_communic/mitcplr_init1.F |
62 |
MITCPLR_INIT1 |
call MITCPLR_CHAR2INT( myTypeStr, ibuf(8) ) |
|
./pkg/compon_communic/mitcplr_init1.F |
68 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
71 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
82 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
9 |
MITCPLR_INIT1 |
character*(*) myTypeStr |
|
./pkg/compon_communic/mitcplr_init2a.F |
5 |
MITCPLR_INIT2A |
subroutine MITCPLR_INIT2A( myTypeStr ) |
|
./pkg/compon_communic/mitcplr_init2a.F |
8 |
MITCPLR_INIT2A |
character*(*) myTypeStr |
|
./pkg/compon_communic/mitcplr_init2b.F |
5 |
MITCPLR_INIT2B |
subroutine MITCPLR_INIT2B( myTypeStr ) |
|
./pkg/compon_communic/mitcplr_init2b.F |
8 |
MITCPLR_INIT2B |
character*(*) myTypeStr |