| File |
Line number |
Procedure |
Code |
|
./pkg/compon_communic/mitcplr_init2a.F |
2 |
MITCPLR_INIT2A |
subroutine MITCPLR_INIT2A( myTypeStr ) |
|
./pkg/compon_communic/mitcplr_init2a.F |
5 |
MITCPLR_INIT2A |
character*(*) myTypeStr |
|
./pkg/compon_communic/mitcomponent_init.F |
2 |
MITCOMPONENT_INIT |
subroutine MITCOMPONENT_INIT( myTypeStr, MPI_COMM_local ) |
|
./pkg/compon_communic/mitcomponent_init.F |
32 |
MITCOMPONENT_INIT |
call MITCPLR_INIT1( myTypeStr, couplerFlag ) |
|
./pkg/compon_communic/mitcomponent_init.F |
38 |
MITCOMPONENT_INIT |
call MITCPLR_INIT2A( myTypeStr ) |
|
./pkg/compon_communic/mitcomponent_init.F |
6 |
MITCOMPONENT_INIT |
character*(*) myTypeStr |
|
./pkg/compon_communic/mitcplr_init1.F |
103 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
107 |
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 |
121 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
134 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
144 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
155 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
165 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
179 |
MITCPLR_INIT1 |
compind=mitcplr_match_comp( myTypeStr ) |
|
./pkg/compon_communic/mitcplr_init1.F |
186 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
194 |
MITCPLR_INIT1 |
if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
198 |
MITCPLR_INIT1 |
if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
200 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
207 |
MITCPLR_INIT1 |
if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
211 |
MITCPLR_INIT1 |
if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
213 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
220 |
MITCPLR_INIT1 |
& myTypeStr,'.',j,'.clog' |
|
./pkg/compon_communic/mitcplr_init1.F |
224 |
MITCPLR_INIT1 |
write(LogUnit,*) 'This is "',myTypeStr,'"' |
|
./pkg/compon_communic/mitcplr_init1.F |
2 |
MITCPLR_INIT1 |
subroutine MITCPLR_INIT1( myTypeStr, couplerFlag ) |
|
./pkg/compon_communic/mitcplr_init1.F |
32 |
MITCPLR_INIT1 |
if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
36 |
MITCPLR_INIT1 |
if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
38 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
59 |
MITCPLR_INIT1 |
call MITCPLR_CHAR2INT( myTypeStr, ibuf(8) ) |
|
./pkg/compon_communic/mitcplr_init1.F |
65 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
68 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
6 |
MITCPLR_INIT1 |
character*(*) myTypeStr |
|
./pkg/compon_communic/mitcplr_init1.F |
79 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init2b.F |
2 |
MITCPLR_INIT2B |
subroutine MITCPLR_INIT2B( myTypeStr ) |
|
./pkg/compon_communic/mitcplr_init2b.F |
5 |
MITCPLR_INIT2B |
character*(*) myTypeStr |
|
./pkg/compon_communic/mitcoupler_init.F |
2 |
MITCOUPLER_INIT |
subroutine MITCOUPLER_INIT( myTypeStr, MPI_COMM_local ) |
|
./pkg/compon_communic/mitcoupler_init.F |
32 |
MITCOUPLER_INIT |
call MITCPLR_INIT1( myTypeStr, couplerFlag ) |
|
./pkg/compon_communic/mitcoupler_init.F |
38 |
MITCOUPLER_INIT |
call MITCPLR_INIT2B( myTypeStr ) |
|
./pkg/compon_communic/mitcoupler_init.F |
6 |
MITCOUPLER_INIT |
character*(*) myTypeStr |