| File |
Line number |
Procedure |
Code |
|
./model/src/do_oceanic_phys.F |
281 |
DO_OCEANIC_PHYS |
IF ( useCoupler ) THEN |
|
./model/src/do_oceanic_phys.F |
487 |
DO_OCEANIC_PHYS |
IF ( useCoupler ) THEN |
|
./eesupp/src/all_proc_die.F |
74 |
ALL_PROC_DIE |
IF ( .NOT.( useCoupler |
|
./model/src/do_the_model_io.F |
257 |
DO_THE_MODEL_IO |
IF ( useCoupler ) |
|
./pkg/salt_plume/salt_plume_do_exch.F |
51 |
SALT_PLUME_DO_EXCH |
IF ( useCoupler ) THEN |
|
./model/src/forward_step.F |
545 |
FORWARD_STEP |
IF ( useCoupler ) THEN |
|
./pkg/thsice/thsice_check.F |
115 |
THSICE_CHECK |
IF ( useAIM .AND. .NOT.( stepFwd_oceMxL .OR. useCoupler ) |
|
./pkg/thsice/thsice_ini_vars.F |
112 |
THSICE_INI_VARS |
IF ( useCoupler .AND. thSIce_skipThermo ) RETURN |
|
./pkg/thsice/thsice_output.F |
271 |
THSICE_OUTPUT |
& .OR. .NOT.useCoupler ) |
|
./pkg/thsice/thsice_salt_plume.F |
71 |
THSICE_SALT_PLUME |
IF ( useCoupler ) fillCplVar = atm_cplExch_SaltPl |
|
./pkg/thsice/thsice_step_fwd.F |
389 |
THSICE_STEP_FWD |
IF ( useSALT_PLUME .OR. useCoupler ) THEN |
|
./pkg/thsice/thsice_write_pickup.F |
50 |
THSICE_WRITE_PICKUP |
IF ( useCoupler .AND. thSIce_skipThermo ) RETURN |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
384 |
AIM_SURF_BC |
IF ( useCoupler ) THEN |
|
./model/src/initialise_fixed.F |
124 |
INITIALISE_FIXED |
IF ( useCoupler ) THEN |
|
./model/src/initialise_fixed.F |
289 |
INITIALISE_FIXED |
IF ( useCoupler ) THEN |
|
./model/src/packages_boot.F |
445 |
PACKAGES_BOOT |
CALL PACKAGES_PRINT_MSG( useCoupler, 'COMPON_COMMUNIC', |
|
./model/src/packages_boot.F |
449 |
PACKAGES_BOOT |
CALL PACKAGES_PRINT_MSG( useCoupler, 'ATM_COMPON_INTERF', |
|
./model/src/packages_boot.F |
453 |
PACKAGES_BOOT |
CALL PACKAGES_PRINT_MSG( useCoupler, 'OCN_COMPON_INTERF', |
|
./model/src/packages_init_fixed.F |
585 |
PACKAGES_INIT_FIXED |
IF ( useCoupler ) THEN |
|
./model/src/packages_init_variables.F |
454 |
PACKAGES_INIT_VARIABLES |
IF (useCoupler) THEN |
|
./model/src/packages_readparms.F |
385 |
PACKAGES_READPARMS |
IF ( useCoupler ) CALL CPL_READPARMS( myThid ) |
|
./model/src/packages_write_pickup.F |
229 |
PACKAGES_WRITE_PICKUP |
IF (useCoupler) THEN |
|
./eesupp/src/eeboot.F |
162 |
EEBOOT |
IF ( useCoupler ) CALL CPL_REGISTER |
|
./eesupp/src/eeboot_minimal.F |
162 |
EEBOOT_MINIMAL |
IF ( useCoupler) CALL CPL_INIT |
|
./eesupp/src/eedie.F |
91 |
EEDIE |
IF ( useCoupler) CALL MPI_BARRIER( MPI_COMM_WORLD, mpiRC ) |
|
./eesupp/src/eeset_parms.F |
112 |
EESET_PARMS |
useCoupler = .FALSE. |
|
./eesupp/src/eeset_parms.F |
70 |
EESET_PARMS |
& useCoupler, useNEST_PARENT, useNEST_CHILD, useOASIS, |
|
./pkg/aim_v23/aim_aim2dyn.F |
93 |
AIM_AIM2DYN |
IF ( useCoupler ) THEN |
|
./pkg/aim_v23/aim_do_co2.F |
67 |
AIM_DO_CO2 |
IF ( useCoupler .AND. useImportFlxCO2 ) THEN |
|
./pkg/aim_v23/aim_do_physics.F |
237 |
AIM_DO_PHYSICS |
IF ( useCoupler ) THEN |
|
./eesupp/src/eewrite_eeenv.F |
157 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,L5,A)') 'useCoupler=', useCoupler, |
|
./pkg/aim_v23/aim_sice2aim.F |
133 |
AIM_SICE2AIM |
& .AND. .NOT.useCoupler ) |
|
./pkg/aim_v23/aim_surf_bc.F |
353 |
AIM_SURF_BC |
IF ( useCoupler ) THEN |
|
./pkg/atm_phys/atm_phys_driver.F |
157 |
ATM_PHYS_DRIVER |
IF ( useCoupler ) THEN |
|
./pkg/atm_phys/atm_phys_driver.F |
511 |
ATM_PHYS_DRIVER |
IF ( useCoupler ) THEN |
|
./eesupp/inc/EEPARAMS.h |
184 |
NO PROCEDURE |
& useCubedSphereExchange, useCoupler, |
|
./eesupp/inc/EEPARAMS.h |
195 |
NO PROCEDURE |
LOGICAL useCoupler |
|
./pkg/dic/dic_biotic_forcing.F |
118 |
DIC_BIOTIC_FORCING |
IF ( useThSIce .OR. useSEAICE .OR. useCoupler ) THEN |
|
./pkg/dic/dic_fields_update.F |
71 |
DIC_FIELDS_UPDATE |
ELSEIF ( useCoupler ) THEN |
|
./pkg/dic/dic_fields_update.F |
84 |
DIC_FIELDS_UPDATE |
IF ( useCoupler ) THEN |