| File |
Line number |
Procedure |
Code |
|
./pkg/compon_communic/mitcomponent_init.F |
24 |
MITCOMPONENT_INIT |
logical couplerFlag |
|
./pkg/compon_communic/mitcomponent_init.F |
30 |
MITCOMPONENT_INIT |
couplerFlag = .FALSE. |
|
./pkg/compon_communic/mitcomponent_init.F |
31 |
MITCOMPONENT_INIT |
call MITCPLR_INIT1( myTypeStr, couplerFlag ) |
|
./pkg/compon_communic/mitcoupler_init.F |
24 |
MITCOUPLER_INIT |
logical couplerFlag |
|
./pkg/compon_communic/mitcoupler_init.F |
30 |
MITCOUPLER_INIT |
couplerFlag = .TRUE. |
|
./pkg/compon_communic/mitcoupler_init.F |
31 |
MITCOUPLER_INIT |
call MITCPLR_INIT1( myTypeStr, couplerFlag ) |
|
./pkg/compon_communic/mitcplr_init1.F |
16 |
MITCPLR_INIT1 |
logical couplerFlag |
|
./pkg/compon_communic/mitcplr_init1.F |
176 |
MITCPLR_INIT1 |
if ( couplerFlag ) then |
|
./pkg/compon_communic/mitcplr_init1.F |
193 |
MITCPLR_INIT1 |
if ( couplerFlag ) then |
|
./pkg/compon_communic/mitcplr_init1.F |
221 |
MITCPLR_INIT1 |
if ( couplerFlag ) j=myid |
|
./pkg/compon_communic/mitcplr_init1.F |
229 |
MITCPLR_INIT1 |
if (.not.couplerFlag) |
|
./pkg/compon_communic/mitcplr_init1.F |
57 |
MITCPLR_INIT1 |
if ( couplerFlag ) ibuf(2)=MITCPLR_COUPLER |
|
./pkg/compon_communic/mitcplr_init1.F |
5 |
MITCPLR_INIT1 |
subroutine MITCPLR_INIT1( myTypeStr, couplerFlag ) |