| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_advection.F |
156 |
GAD_ADVECTION |
LOGICAL DIAGNOSTICS_IS_ON |
|
./pkg/generic_advdiff/gad_advection.F |
190 |
GAD_ADVECTION |
doDiagAdvX = DIAGNOSTICS_IS_ON( diagName, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
192 |
GAD_ADVECTION |
doDiagAdvY = DIAGNOSTICS_IS_ON( diagName, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
194 |
GAD_ADVECTION |
doDiagAdvR = DIAGNOSTICS_IS_ON( diagName, myThid ) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
111 |
GAD_DIAGNOSTICS_STATE |
IF ( DIAGNOSTICS_IS_ON( diagName, myThid ) ) THEN |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
39 |
GAD_DIAGNOSTICS_STATE |
LOGICAL DIAGNOSTICS_IS_ON |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
66 |
GAD_DIAGNOSTICS_STATE |
IF ( DIAGNOSTICS_IS_ON( diagName, myThid ) ) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
300 |
GAD_IMPLICIT_R |
IF ( DIAGNOSTICS_IS_ON(diagName,myThid) ) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
82 |
GAD_IMPLICIT_R |
LOGICAL DIAGNOSTICS_IS_ON |
|
./pkg/generic_advdiff/gad_som_advect.F |
155 |
GAD_SOM_ADVECT |
LOGICAL DIAGNOSTICS_IS_ON |
|
./pkg/generic_advdiff/gad_som_advect.F |
168 |
GAD_SOM_ADVECT |
doDiagAdvX = DIAGNOSTICS_IS_ON( diagName, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
170 |
GAD_SOM_ADVECT |
doDiagAdvY = DIAGNOSTICS_IS_ON( diagName, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
172 |
GAD_SOM_ADVECT |
doDiagAdvR = DIAGNOSTICS_IS_ON( diagName, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
105 |
GMREDI_CALC_TENSOR |
LOGICAL DIAGNOSTICS_IS_ON |
|
./pkg/gmredi/gmredi_calc_tensor.F |
132 |
GMREDI_CALC_TENSOR |
doDiagRediFlx = DIAGNOSTICS_IS_ON('GM_KuzTz', myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
134 |
GMREDI_CALC_TENSOR |
& DIAGNOSTICS_IS_ON('GM_KvzTz', myThid ) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
30 |
GMREDI_DIAGNOSTICS_FILL |
LOGICAL DIAGNOSTICS_IS_ON |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
75 |
GMREDI_DIAGNOSTICS_FILL |
IF ( DIAGNOSTICS_IS_ON('GMEdTauX',myThid) ) THEN |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
89 |
GMREDI_DIAGNOSTICS_FILL |
IF ( DIAGNOSTICS_IS_ON('GMEdTauY',myThid) ) THEN |
|
./pkg/gmredi/gmredi_xtransport.F |
193 |
GMREDI_XTRANSPORT |
& .AND. DIAGNOSTICS_IS_ON('GM_ubT ', myThid ) |
|
./pkg/gmredi/gmredi_xtransport.F |
62 |
GMREDI_XTRANSPORT |
LOGICAL DIAGNOSTICS_IS_ON |
|
./pkg/gmredi/gmredi_ytransport.F |
192 |
GMREDI_YTRANSPORT |
& .AND. DIAGNOSTICS_IS_ON('GM_vbT ', myThid ) |
|
./pkg/gmredi/gmredi_ytransport.F |
62 |
GMREDI_YTRANSPORT |
LOGICAL DIAGNOSTICS_IS_ON |
|
./pkg/gridalt/gridalt_update.F |
70 |
GRIDALT_UPDATE |
IF ( DIAGNOSTICS_IS_ON('DPPHYS ',myThid) ) THEN |
|
./pkg/kpp/kpp_output.F |
363 |
KPP_OUTPUT |
IF ( DIAGNOSTICS_IS_ON( 'KPPghatK', myThid ) ) THEN |
|
./pkg/kpp/kpp_output.F |
74 |
KPP_OUTPUT |
LOGICAL DIAGNOSTICS_IS_ON |
|
./pkg/mom_common/mom_u_implicit_r.F |
202 |
MOM_U_IMPLICIT_R |
IF ( DIAGNOSTICS_IS_ON(diagName,myThid) ) THEN |
|
./pkg/mom_common/mom_u_implicit_r.F |
51 |
MOM_U_IMPLICIT_R |
LOGICAL DIAGNOSTICS_IS_ON |
|
./pkg/mom_common/mom_v_implicit_r.F |
202 |
MOM_V_IMPLICIT_R |
IF ( DIAGNOSTICS_IS_ON(diagName,myThid) ) THEN |
|
./pkg/mom_common/mom_v_implicit_r.F |
51 |
MOM_V_IMPLICIT_R |
LOGICAL DIAGNOSTICS_IS_ON |
|
./model/src/calc_gw.F |
106 |
CALC_GW |
LOGICAL DIAGNOSTICS_IS_ON |
|
./model/src/calc_gw.F |
114 |
CALC_GW |
diagDiss = DIAGNOSTICS_IS_ON( 'Wm_Diss ', myThid ) |
|
./model/src/calc_gw.F |
115 |
CALC_GW |
diagAdvec = DIAGNOSTICS_IS_ON( 'Wm_Advec', myThid ) |
|
./model/src/calc_oce_mxlayer.F |
49 |
CALC_OCE_MXLAYER |
LOGICAL DIAGNOSTICS_IS_ON |
|
./model/src/calc_oce_mxlayer.F |
74 |
CALC_OCE_MXLAYER |
calcMixLayerDepth = DIAGNOSTICS_IS_ON('MXLDEPTH',myThid) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
108 |
PTRACERS_DIAGNOSTICS_STATE |
IF ( DIAGNOSTICS_IS_ON(diagName,myThid) ) THEN |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
141 |
PTRACERS_DIAGNOSTICS_STATE |
IF ( DIAGNOSTICS_IS_ON(diagName,myThid) ) THEN |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
38 |
PTRACERS_DIAGNOSTICS_STATE |
LOGICAL DIAGNOSTICS_IS_ON |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
75 |
PTRACERS_DIAGNOSTICS_STATE |
IF ( DIAGNOSTICS_IS_ON(diagName,myThid) ) THEN |
|
./model/src/diags_oceanic_surf_flux.F |
111 |
DIAGS_OCEANIC_SURF_FLUX |
IF ( DIAGNOSTICS_IS_ON('TFLUX ',myThid) ) THEN |
|
./model/src/diags_oceanic_surf_flux.F |
141 |
DIAGS_OCEANIC_SURF_FLUX |
IF ( DIAGNOSTICS_IS_ON('SFLUX ',myThid) ) THEN |
|
./model/src/diags_oceanic_surf_flux.F |
45 |
DIAGS_OCEANIC_SURF_FLUX |
LOGICAL DIAGNOSTICS_IS_ON |
|
./model/src/diags_rho.F |
135 |
DIAGS_RHO_G |
LOGICAL DIAGNOSTICS_IS_ON |
|
./model/src/diags_rho.F |
146 |
DIAGS_RHO_G |
IF ( DIAGNOSTICS_IS_ON('URHOMASS',myThid) ) THEN |
|
./model/src/diags_rho.F |
163 |
DIAGS_RHO_G |
IF ( DIAGNOSTICS_IS_ON('VRHOMASS',myThid) ) THEN |
|
./model/src/do_oceanic_phys.F |
109 |
DO_OCEANIC_PHYS |
LOGICAL DIAGNOSTICS_IS_ON |
|
./model/src/do_oceanic_phys.F |
127 |
DO_OCEANIC_PHYS |
IF ( DIAGNOSTICS_IS_ON('WRHOMASS',myThid) ) |
|
./model/src/do_oceanic_phys.F |
129 |
DO_OCEANIC_PHYS |
IF ( DIAGNOSTICS_IS_ON('DRHODR ',myThid) ) |
|
./model/src/do_oceanic_phys.F |
131 |
DO_OCEANIC_PHYS |
IF ( DIAGNOSTICS_IS_ON('MXLDEPTH',myThid) ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
107 |
SEAICE_DIAGNOSTICS_STATE |
IF ( DIAGNOSTICS_IS_ON('SIsigI ',myThid) .OR. |
|
./pkg/seaice/seaice_diagnostics_state.F |
108 |
SEAICE_DIAGNOSTICS_STATE |
& DIAGNOSTICS_IS_ON('SIsigII ',myThid) ) THEN |
|
./pkg/seaice/seaice_diagnostics_state.F |
178 |
SEAICE_DIAGNOSTICS_STATE |
IF ( DIAGNOSTICS_IS_ON('SIuheff ',myThid) ) THEN |
|
./pkg/seaice/seaice_diagnostics_state.F |
197 |
SEAICE_DIAGNOSTICS_STATE |
IF ( DIAGNOSTICS_IS_ON('SIvheff ',myThid) ) THEN |
|
./pkg/seaice/seaice_diagnostics_state.F |
56 |
SEAICE_DIAGNOSTICS_STATE |
LOGICAL DIAGNOSTICS_IS_ON |
|
./pkg/seaice/seaice_diagnostics_state.F |
66 |
SEAICE_DIAGNOSTICS_STATE |
IF ( DIAGNOSTICS_IS_ON('SItices ',myThid) ) THEN |
|
./pkg/seaice/seaice_growth.F |
1092 |
SEAICE_GROWTH |
IF ( DIAGNOSTICS_IS_ON('SIfice ',myThid) ) THEN |
|
./pkg/seaice/seaice_growth.F |
1274 |
SEAICE_GROWTH |
IF ( DIAGNOSTICS_IS_ON('SIthdgrh',myThid) ) THEN |
|
./pkg/seaice/seaice_growth.F |
1304 |
SEAICE_GROWTH |
IF ( DIAGNOSTICS_IS_ON('SIsnwice',myThid) ) THEN |
|
./pkg/seaice/seaice_growth.F |
1396 |
SEAICE_GROWTH |
IF ( DIAGNOSTICS_IS_ON('SIqneto ',myThid) ) THEN |
|
./pkg/seaice/seaice_growth.F |
1404 |
SEAICE_GROWTH |
IF ( DIAGNOSTICS_IS_ON('SIqneti ',myThid) ) THEN |
|
./pkg/seaice/seaice_growth.F |
50 |
SEAICE_GROWTH |
LOGICAL DIAGNOSTICS_IS_ON |
|
./pkg/seaice/seaice_growth.F |
611 |
SEAICE_GROWTH |
IF ( DIAGNOSTICS_IS_ON('SIatmQnt',myThid) ) THEN |
|
./pkg/seaice/seaice_growth.F |
628 |
SEAICE_GROWTH |
IF ( DIAGNOSTICS_IS_ON('SIfwSubl',myThid) ) THEN |
|
./pkg/seaice/seaice_growth.F |
637 |
SEAICE_GROWTH |
IF ( DIAGNOSTICS_IS_ON('SIatmFW ',myThid) ) THEN |
|
./pkg/seaice/seaice_growth.F |
758 |
SEAICE_GROWTH |
IF ( DIAGNOSTICS_IS_ON('SIyneg ',myThid) ) THEN |
|
./pkg/seaice/seaice_growth.F |
889 |
SEAICE_GROWTH |
IF ( DIAGNOSTICS_IS_ON('SIsnPrcp',myThid) ) THEN |
|
./model/src/dynamics.F |
151 |
DYNAMICS |
LOGICAL DIAGNOSTICS_IS_ON |
|
./model/src/dynamics.F |
256 |
DYNAMICS |
& dPhiHydDiagIsOn = DIAGNOSTICS_IS_ON( 'Um_dPHdx', myThid ) |
|
./model/src/dynamics.F |
257 |
DYNAMICS |
& .OR. DIAGNOSTICS_IS_ON( 'Vm_dPHdy', myThid ) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
131 |
SHAP_FILT_APPLY_UV |
IF ( DIAGNOSTICS_IS_ON('SHAP_dKE',myThid) ) THEN |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
58 |
SHAP_FILT_APPLY_UV |
LOGICAL DIAGNOSTICS_IS_ON |
|
./pkg/thsice/thsice_advdiff.F |
521 |
THSICE_ADVDIFF |
IF ( DIAGNOSTICS_IS_ON('SI_AdvQ1',myThid) .OR. |
|
./pkg/thsice/thsice_advdiff.F |
522 |
THSICE_ADVDIFF |
& DIAGNOSTICS_IS_ON('SI_AdvQ2',myThid) ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
98 |
THSICE_ADVDIFF |
LOGICAL DIAGNOSTICS_IS_ON |
|
./pkg/thsice/thsice_diagnostics_state.F |
46 |
THSICE_DIAGNOSTICS_STATE |
LOGICAL DIAGNOSTICS_IS_ON |
|
./pkg/thsice/thsice_diagnostics_state.F |
73 |
THSICE_DIAGNOSTICS_STATE |
IF ( DIAGNOSTICS_IS_ON('SI_Qice1',myThid) .OR. |
|
./pkg/thsice/thsice_diagnostics_state.F |
74 |
THSICE_DIAGNOSTICS_STATE |
& DIAGNOSTICS_IS_ON('SI_Qice2',myThid) ) THEN |
|
./model/src/impldiff.F |
317 |
IMPLDIFF |
IF ( DIAGNOSTICS_IS_ON(diagName,myThid) ) THEN |
|
./model/src/impldiff.F |
76 |
IMPLDIFF |
LOGICAL DIAGNOSTICS_IS_ON |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
298 |
GAD_IMPLICIT_R |
IF ( DIAGNOSTICS_IS_ON(diagName,myThid) ) THEN |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
80 |
GAD_IMPLICIT_R |
LOGICAL DIAGNOSTICS_IS_ON |
|
./model/src/timestep.F |
68 |
TIMESTEP |
LOGICAL DIAGNOSTICS_IS_ON |
|
./model/src/timestep.F |
93 |
TIMESTEP |
externForcDiagIsOn = DIAGNOSTICS_IS_ON('Um_Ext ',myThid) |
|
./model/src/timestep.F |
94 |
TIMESTEP |
& .OR. DIAGNOSTICS_IS_ON('Vm_Ext ',myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
69 |
AIM_AIM2DYN |
LOGICAL DIAGNOSTICS_IS_ON |
|
./pkg/aim_v23/aim_aim2dyn.F |
80 |
AIM_AIM2DYN |
physTendDiag = DIAGNOSTICS_IS_ON( 'DIABT ', myThid ) |
|
./pkg/aim_v23/aim_aim2dyn.F |
81 |
AIM_AIM2DYN |
& .OR. DIAGNOSTICS_IS_ON( 'DIABQ ', myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
425 |
AIM_DIAGNOSTICS |
IF ( DIAGNOSTICS_IS_ON('ENPREC ',myThid) ) THEN |
|
./pkg/aim_v23/aim_diagnostics.F |
51 |
AIM_DIAGNOSTICS |
LOGICAL DIAGNOSTICS_IS_ON |
|
./pkg/diagnostics/diagnostics_fill_state.F |
102 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('UE_VEL_C',myThid) .OR. |
|
./pkg/diagnostics/diagnostics_fill_state.F |
103 |
DIAGNOSTICS_FILL_STATE |
& DIAGNOSTICS_IS_ON('VN_VEL_C',myThid) .OR. |
|
./pkg/diagnostics/diagnostics_fill_state.F |
104 |
DIAGNOSTICS_FILL_STATE |
& DIAGNOSTICS_IS_ON('UV_VEL_C',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
129 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('UV_VEL_Z',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
146 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('WU_VEL ',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
166 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('WV_VEL ',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
188 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('UVELTH ',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
204 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('VVELTH ',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
220 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('WVELTH ',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
237 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('UVELSLT ',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
253 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('VVELSLT ',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
269 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('WVELSLT ',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
286 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('UVELPHI ',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
302 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('VVELPHI ',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
318 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('RCENTER ',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
347 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('TOTUTEND',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
363 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('TOTVTEND',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
379 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('TOTTTEND',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
395 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('TOTSTEND',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
423 |
DIAGNOSTICS_FILL_STATE |
IF((useFIZHI).and.(DIAGNOSTICS_IS_ON('RELHUM ',myThid)))THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
43 |
DIAGNOSTICS_FILL_STATE |
LOGICAL DIAGNOSTICS_IS_ON |
|
./pkg/diagnostics/diagnostics_fill_state.F |
476 |
DIAGNOSTICS_FILL_STATE |
& ( DIAGNOSTICS_IS_ON('SALTanom',myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
477 |
DIAGNOSTICS_FILL_STATE |
& .OR.DIAGNOSTICS_IS_ON('SALTSQan',myThid) ) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
496 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('UVELMASS',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
512 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('VVELMASS',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
530 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('UTHMASS ',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
547 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('VTHMASS ',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
564 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('WTHMASS ',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
581 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('USLTMASS',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
598 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('VSLTMASS',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
615 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('WSLTMASS',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
63 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('RSURF ',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
640 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('TOTUTEND',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
656 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('TOTVTEND',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
672 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('TOTTTEND',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
688 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('TOTSTEND',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_is_on.F |
12 |
NO PROCEDURE |
LOGICAL FUNCTION DIAGNOSTICS_IS_ON( diagName, myThid ) |
|
./pkg/diagnostics/diagnostics_is_on.F |
39 |
NO PROCEDURE |
DIAGNOSTICS_IS_ON = .FALSE. |
|
./pkg/diagnostics/diagnostics_is_on.F |
48 |
NO PROCEDURE |
IF ( ndiag(ip,bi,bj).GE.0 ) DIAGNOSTICS_IS_ON = .TRUE. |
|
./pkg/diagnostics/diagnostics_is_on.F |
53 |
NO PROCEDURE |
IF ( .NOT.DIAGNOSTICS_IS_ON ) THEN |
|
./pkg/diagnostics/diagnostics_is_on.F |
60 |
NO PROCEDURE |
IF (qSdiag(0,0,iSp,bi,bj).GE.0.) DIAGNOSTICS_IS_ON = .TRUE. |
|
./pkg/down_slope/dwnslp_apply.F |
115 |
DWNSLP_APPLY |
doDiagDwnSlpTend = DIAGNOSTICS_IS_ON(diagName,myThid) |
|
./pkg/down_slope/dwnslp_apply.F |
80 |
DWNSLP_APPLY |
LOGICAL DIAGNOSTICS_IS_ON |
|
./pkg/down_slope/dwnslp_calc_flow.F |
66 |
DWNSLP_CALC_FLOW |
LOGICAL DIAGNOSTICS_IS_ON |
|
./pkg/down_slope/dwnslp_calc_flow.F |
80 |
DWNSLP_CALC_FLOW |
doDiagDwnSlpFlow = DIAGNOSTICS_IS_ON( 'DSLPuFlw', myThid ) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
81 |
DWNSLP_CALC_FLOW |
& .OR. DIAGNOSTICS_IS_ON( 'DSLPvFlw', myThid ) |