| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/GAD.h |
96 |
NO PROCEDURE |
INTEGER GAD_TEMPERATURE |
|
./pkg/generic_advdiff/GAD.h |
97 |
NO PROCEDURE |
PARAMETER(GAD_TEMPERATURE=1) |
|
./pkg/generic_advdiff/gad_advection.F |
787 |
GAD_ADVECTION |
& .AND. trIdentity.EQ.GAD_TEMPERATURE |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
644 |
GAD_CALC_RHS |
IF (trIdentity.EQ.GAD_TEMPERATURE) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
697 |
GAD_CALC_RHS |
IF ( trIdentity.NE.GAD_TEMPERATURE .AND. |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
786 |
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 |
432 |
GAD_SOM_ADVECT |
& .AND. tracerIdentity.EQ.GAD_TEMPERATURE |
|
./pkg/kpp/kpp_calc.F |
514 |
KPP_CALC |
I GAD_TEMPERATURE, .FALSE., .FALSE., |
|
./pkg/kpp/kpp_calc.F |
733 |
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 ) |
|
./model/src/calc_3d_diffusivity.F |
110 |
CALC_3D_DIFFUSIVITY |
IF ( trIdentity.EQ.GAD_TEMPERATURE ) THEN |
|
./model/src/calc_3d_diffusivity.F |
166 |
CALC_3D_DIFFUSIVITY |
IF (trIdentity.EQ.GAD_TEMPERATURE) THEN |
|
./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 |
239 |
TEMP_INTEGRATE |
I GAD_TEMPERATURE, useGMredi, useKPP, |
|
./model/src/temp_integrate.F |
265 |
TEMP_INTEGRATE |
I tempAdvScheme, tempVertAdvScheme, GAD_TEMPERATURE, |
|
./model/src/temp_integrate.F |
279 |
TEMP_INTEGRATE |
I tempAdvScheme, tempVertAdvScheme, GAD_TEMPERATURE, |
|
./model/src/temp_integrate.F |
349 |
TEMP_INTEGRATE |
I GAD_TEMPERATURE, tempAdvScheme, tempVertAdvScheme, |
|
./model/src/temp_integrate.F |
364 |
TEMP_INTEGRATE |
I GAD_TEMPERATURE, tempAdvScheme, tempVertAdvScheme, |
|
./model/src/temp_integrate.F |
450 |
TEMP_INTEGRATE |
I GAD_TEMPERATURE, bi, bj, kSurfC, |
|
./model/src/temp_integrate.F |
457 |
TEMP_INTEGRATE |
I GAD_TEMPERATURE, bi, bj, kLowC, |
|
./model/src/temp_integrate.F |
490 |
TEMP_INTEGRATE |
I tempImplVertAdv, tempVertAdvScheme, GAD_TEMPERATURE, |
|
./model/src/temp_integrate.F |
505 |
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 ) |