| File |
Line number |
Procedure |
Code |
|
./model/src/do_oceanic_phys.F |
141 |
DO_OCEANIC_PHYS |
IF ( useCoupler ) THEN |
|
./model/src/packages_init_fixed.F |
225 |
PACKAGES_INIT_FIXED |
IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid ) |
|
./model/src/packages_init_variables.F |
253 |
PACKAGES_INIT_VARIABLES |
IF (useCoupler) CALL CPL_INI_VARS( mythid ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
279 |
AIM_SURF_BC |
IF ( useCoupler ) THEN |
|
./verification/aim.5l_Equatorial_Channel/code/EEPARAMS.h |
125 |
NO PROCEDURE |
& useCubedSphereExchange, useCoupler |
|
./verification/aim.5l_Equatorial_Channel/code/EEPARAMS.h |
130 |
NO PROCEDURE |
LOGICAL useCoupler |
|
./verification/aim.5l_cs/code/EEPARAMS.h |
125 |
NO PROCEDURE |
& useCubedSphereExchange, useCoupler |
|
./verification/aim.5l_cs/code/EEPARAMS.h |
130 |
NO PROCEDURE |
LOGICAL useCoupler |
|
./verification/aim.5l_LatLon/code/EEPARAMS.h |
125 |
NO PROCEDURE |
& useCubedSphereExchange, useCoupler |
|
./verification/aim.5l_LatLon/code/EEPARAMS.h |
130 |
NO PROCEDURE |
LOGICAL useCoupler |
|
./model/src/do_the_model_io.F |
181 |
DO_THE_MODEL_IO |
IF ( useCoupler ) |
|
./model/src/packages_write_pickup.F |
202 |
PACKAGES_WRITE_PICKUP_NOW |
IF (useCoupler) THEN |
|
./model/src/forward_step.F |
260 |
FORWARD_STEP |
IF ( useCoupler .AND. cpl_earlyExpImpCall ) THEN |
|
./model/src/forward_step.F |
390 |
FORWARD_STEP |
IF ( useCoupler .AND. .NOT.cpl_earlyExpImpCall ) THEN |
|
./verification/cpl_aim+ocn/code_atm/EEPARAMS.h |
125 |
NO PROCEDURE |
& useCubedSphereExchange, useCoupler |
|
./verification/cpl_aim+ocn/code_atm/EEPARAMS.h |
130 |
NO PROCEDURE |
LOGICAL useCoupler |
|
./model/src/packages_readparms.F |
235 |
PACKAGES_READPARMS |
IF ( useCoupler ) CALL CPL_READPARMS( myThid ) |
|
./eesupp/src/eeset_parms.F |
48 |
EESET_PARMS |
& nTx, nTy, usingMPI, useCoupler, useCubedSphereExchange, |
|
./eesupp/src/eeset_parms.F |
93 |
EESET_PARMS |
useCoupler = .FALSE. |
|
./eesupp/src/eeboot.F |
151 |
EEBOOT |
IF ( useCoupler ) CALL CPL_REGISTER |
|
./eesupp/src/eewrite_eeenv.F |
157 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,L4,A)') 'useCoupler=', useCoupler, |
|
./pkg/aim_v23/aim_surf_bc.F |
254 |
AIM_SURF_BC |
IF ( useCoupler ) THEN |
|
./pkg/aim_v23/aim_do_physics.F |
165 |
AIM_DO_PHYSICS |
IF ( useCoupler ) THEN |
|
./pkg/aim_v23/aim_aim2dyn_exchanges.F |
51 |
AIM_AIM2DYN_EXCHANGES |
IF ( useCoupler ) THEN |
|
./eesupp/src/eeboot_minimal.F |
103 |
EEBOOT_MINIMAL |
IF ( useCoupler) CALL CPL_INIT |
|
./eesupp/src/eedie.F |
69 |
EEDIE |
IF ( useCoupler) CALL MPI_BARRIER( MPI_COMM_WORLD, mpiRC ) |
|
./eesupp/inc/EEPARAMS.h |
125 |
NO PROCEDURE |
& useCubedSphereExchange, useCoupler |
|
./eesupp/inc/EEPARAMS.h |
130 |
NO PROCEDURE |
LOGICAL useCoupler |
|
./model/src/initialise_fixed.F |
161 |
INITIALISE_FIXED |
IF ( useCoupler ) CALL CPL_EXCH_CONFIGS( myThid ) |
|
./pkg/monitor/mon_solution.F |
60 |
MON_SOLUTION |
IF ( .NOT. useCoupler ) CALL EEDIE |