| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/GAD.h |
120 |
NO PROCEDURE |
INTEGER GAD_TEMPERATURE |
|
./pkg/generic_advdiff/GAD.h |
121 |
NO PROCEDURE |
PARAMETER(GAD_TEMPERATURE=1) |
|
./pkg/generic_advdiff/gad_advection.F |
821 |
GAD_ADVECTION |
& .AND. trIdentity.EQ.GAD_TEMPERATURE |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
664 |
GAD_CALC_RHS |
IF (trIdentity.EQ.GAD_TEMPERATURE) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
717 |
GAD_CALC_RHS |
IF ( trIdentity.NE.GAD_TEMPERATURE .AND. |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
791 |
GAD_CALC_RHS |
& .AND. trIdentity.EQ.GAD_TEMPERATURE |
|
./pkg/generic_advdiff/gad_diagnostics_init.F |
357 |
GAD_DIAGNOSTICS_INIT |
IF ( tracerId.EQ.GAD_TEMPERATURE ) THEN |
|
./pkg/generic_advdiff/gad_diagnostics_init.F |
68 |
GAD_DIAGNOSTICS_INIT |
diagSufx = GAD_DIAG_SUFX( GAD_TEMPERATURE, myThid ) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
57 |
GAD_DIAGNOSTICS_STATE |
diagSufx = GAD_DIAG_SUFX( GAD_TEMPERATURE, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
438 |
GAD_SOM_ADVECT |
& .AND. tracerIdentity.EQ.GAD_TEMPERATURE |
|
./model/src/calc_3d_diffusivity.F |
115 |
CALC_3D_DIFFUSIVITY |
IF ( trIdentity.EQ.GAD_TEMPERATURE ) THEN |
|
./model/src/calc_3d_diffusivity.F |
171 |
CALC_3D_DIFFUSIVITY |
IF (trIdentity.EQ.GAD_TEMPERATURE) THEN |
|
./pkg/kpp/kpp_calc.F |
524 |
KPP_CALC |
I GAD_TEMPERATURE, .FALSE., .FALSE., |
|
./pkg/kpp/kpp_calc.F |
745 |
KPP_CALC_DUMMY |
I GAD_TEMPERATURE, .FALSE., .FALSE., |
|
./pkg/kpp/kpp_diagnostics_init.F |
165 |
KPP_DIAGNOSTICS_INIT |
diagSufx = GAD_DIAG_SUFX( GAD_TEMPERATURE, myThid ) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
73 |
OBCS_U1_ADV_TRACER |
IF ( trIdentity.EQ.GAD_TEMPERATURE ) THEN |
|
./pkg/salt_plume/salt_plume_apply.F |
108 |
SALT_PLUME_APPLY |
IF ( trIdentity.EQ.GAD_TEMPERATURE ) onOffFlag = .TRUE. |
|
./pkg/salt_plume/salt_plume_apply.F |
118 |
SALT_PLUME_APPLY |
IF ( trIdentity.EQ.GAD_TEMPERATURE ) THEN |
|
./pkg/salt_plume/salt_plume_apply.F |
172 |
SALT_PLUME_APPLY |
IF(trIdentity.EQ.GAD_TEMPERATURE) THEN |
|
./pkg/salt_plume/salt_plume_apply.F |
196 |
SALT_PLUME_APPLY |
IF(trIdentity.EQ.GAD_TEMPERATURE) SurfVal=tracer(i,j,1,bi,bj) |
|
./pkg/salt_plume/salt_plume_apply.F |
227 |
SALT_PLUME_APPLY |
IF (trIdentity.EQ.GAD_TEMPERATURE) THEN |
|
./pkg/salt_plume/salt_plume_apply.F |
249 |
SALT_PLUME_APPLY |
IF (trIdentity.EQ.GAD_TEMPERATURE) |
|
./model/src/temp_integrate.F |
247 |
TEMP_INTEGRATE |
I GAD_TEMPERATURE, useGMredi, useKPP, |
|
./model/src/temp_integrate.F |
273 |
TEMP_INTEGRATE |
I tempAdvScheme, tempVertAdvScheme, GAD_TEMPERATURE, |
|
./model/src/temp_integrate.F |
287 |
TEMP_INTEGRATE |
I tempAdvScheme, tempVertAdvScheme, GAD_TEMPERATURE, |
|
./model/src/temp_integrate.F |
357 |
TEMP_INTEGRATE |
I GAD_TEMPERATURE, tempAdvScheme, tempVertAdvScheme, |
|
./model/src/temp_integrate.F |
372 |
TEMP_INTEGRATE |
I GAD_TEMPERATURE, tempAdvScheme, tempVertAdvScheme, |
|
./model/src/temp_integrate.F |
458 |
TEMP_INTEGRATE |
I GAD_TEMPERATURE, bi, bj, kSurfC, |
|
./model/src/temp_integrate.F |
465 |
TEMP_INTEGRATE |
I GAD_TEMPERATURE, bi, bj, kLowC, |
|
./model/src/temp_integrate.F |
495 |
TEMP_INTEGRATE |
I tempImplVertAdv, tempVertAdvScheme, GAD_TEMPERATURE, |
|
./model/src/temp_integrate.F |
510 |
TEMP_INTEGRATE |
I GAD_TEMPERATURE, kappaRk, recip_hFac, |
|
./pkg/down_slope/dwnslp_apply.F |
95 |
DWNSLP_APPLY |
IF ( trIdentity.EQ.GAD_TEMPERATURE ) onOffFlag = temp_useDWNSLP |
|
./pkg/down_slope/dwnslp_diagnostics_init.F |
85 |
DWNSLP_DIAGNOSTICS_INIT |
diagSufx = GAD_DIAG_SUFX( GAD_TEMPERATURE, myThid ) |