| File |
Line number |
Procedure |
Code |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
32 |
PTRACERS_DIAGNOSTICS_FILL |
LOGICAL DIAGNOSTICS_IS_ON |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
53 |
PTRACERS_DIAGNOSTICS_FILL |
IF ( DIAGNOSTICS_IS_ON(diagname,myThid) ) THEN |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
73 |
PTRACERS_DIAGNOSTICS_FILL |
IF ( DIAGNOSTICS_IS_ON(diagname,myThid) ) THEN |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
93 |
PTRACERS_DIAGNOSTICS_FILL |
IF ( DIAGNOSTICS_IS_ON(diagname,myThid) ) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
67 |
GMREDI_CALC_TENSOR |
LOGICAL DIAGNOSTICS_IS_ON |
|
./pkg/gmredi/gmredi_calc_tensor.F |
92 |
GMREDI_CALC_TENSOR |
doDiagRediFlx = DIAGNOSTICS_IS_ON('GM_KuzTz', myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
94 |
GMREDI_CALC_TENSOR |
& DIAGNOSTICS_IS_ON('GM_KvzTz', myThid ) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
71 |
GMREDI_DIAGNOSTICS_FILL |
IF ( DIAGNOSTICS_IS_ON('GMEdTauX',myThid) ) THEN |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
85 |
GMREDI_DIAGNOSTICS_FILL |
IF ( DIAGNOSTICS_IS_ON('GMEdTauY',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
117 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('UV_VEL_Z',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
134 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('WU_VEL ',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
154 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('WV_VEL ',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
176 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('UVELTH ',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
192 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('VVELTH ',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
208 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('WVELTH ',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
225 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('UVELSLT ',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
241 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('VVELSLT ',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
257 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('WVELSLT ',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
274 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('UVELPHI ',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
290 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('VVELPHI ',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
306 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('PRESSURE',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
333 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('TOTUTEND',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
349 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('TOTVTEND',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
365 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('TOTTTEND',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
381 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('TOTSTEND',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
409 |
DIAGNOSTICS_FILL_STATE |
IF((useFIZHI).and.(DIAGNOSTICS_IS_ON('RELHUM ',myThid)))THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
42 |
DIAGNOSTICS_FILL_STATE |
LOGICAL DIAGNOSTICS_IS_ON |
|
./pkg/diagnostics/diagnostics_fill_state.F |
462 |
DIAGNOSTICS_FILL_STATE |
& ( DIAGNOSTICS_IS_ON('SALTanom',myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
463 |
DIAGNOSTICS_FILL_STATE |
& .OR.DIAGNOSTICS_IS_ON('SALTSQan',myThid) ) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
482 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('UVELMASS',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
498 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('VVELMASS',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
516 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('UTHMASS ',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
533 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('VTHMASS ',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
550 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('WTHMASS ',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
567 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('USLTMASS',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
584 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('VSLTMASS',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
601 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('WSLTMASS',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
60 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('RSURF ',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
626 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('TOTUTEND',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
642 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('TOTVTEND',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
658 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('TOTTTEND',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
674 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('TOTSTEND',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
94 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('UV_VEL_C',myThid) ) THEN |
|
./pkg/diagnostics/diagnostics_is_on.F |
12 |
NO PROCEDURE |
LOGICAL FUNCTION DIAGNOSTICS_IS_ON( diagName, myThid ) |
|
./pkg/diagnostics/diagnostics_is_on.F |
38 |
NO PROCEDURE |
DIAGNOSTICS_IS_ON = .FALSE. |
|
./pkg/diagnostics/diagnostics_is_on.F |
45 |
NO PROCEDURE |
IF ( ndiag(ip,1,1).GE.0 ) DIAGNOSTICS_IS_ON = .TRUE. |
|
./pkg/diagnostics/diagnostics_is_on.F |
50 |
NO PROCEDURE |
IF ( .NOT.DIAGNOSTICS_IS_ON ) THEN |
|
./pkg/diagnostics/diagnostics_is_on.F |
57 |
NO PROCEDURE |
IF (qSdiag(0,0,iSp,1,1).GE.0.) DIAGNOSTICS_IS_ON = .TRUE. |
|
./pkg/aim_v23/aim_diagnostics.F |
385 |
AIM_DIAGNOSTICS |
IF ( DIAGNOSTICS_IS_ON('ENPREC ',myThid) ) THEN |
|
./pkg/aim_v23/aim_diagnostics.F |
47 |
AIM_DIAGNOSTICS |
LOGICAL DIAGNOSTICS_IS_ON |
|
./pkg/aim_v23/aim_aim2dyn.F |
59 |
AIM_AIM2DYN |
LOGICAL DIAGNOSTICS_IS_ON |
|
./pkg/aim_v23/aim_aim2dyn.F |
68 |
AIM_AIM2DYN |
physTendDiag = DIAGNOSTICS_IS_ON( 'DIABT ', myThid ) |
|
./pkg/aim_v23/aim_aim2dyn.F |
69 |
AIM_AIM2DYN |
& .OR. DIAGNOSTICS_IS_ON( 'DIABQ ', myThid ) |
|
./model/src/diags_rho.F |
54 |
DIAGS_RHO |
LOGICAL DIAGNOSTICS_IS_ON |
|
./model/src/diags_rho.F |
57 |
DIAGS_RHO |
IF ( DIAGNOSTICS_IS_ON('RHOANOSQ',myThid) ) THEN |
|
./model/src/diags_rho.F |
66 |
DIAGS_RHO |
IF ( DIAGNOSTICS_IS_ON('URHOMASS',myThid) ) THEN |
|
./model/src/diags_rho.F |
76 |
DIAGS_RHO |
IF ( DIAGNOSTICS_IS_ON('VRHOMASS',myThid) ) THEN |
|
./model/src/diags_rho.F |
86 |
DIAGS_RHO |
IF ( DIAGNOSTICS_IS_ON('WRHOMASS',myThid) ) THEN |
|
./model/src/impldiff.F |
230 |
IMPLDIFF |
IF ( DIAGNOSTICS_IS_ON(diagName,myThid) ) THEN |
|
./model/src/impldiff.F |
66 |
IMPLDIFF |
LOGICAL DIAGNOSTICS_IS_ON |
|
./model/src/timestep.F |
60 |
TIMESTEP |
LOGICAL DIAGNOSTICS_IS_ON |
|
./model/src/timestep.F |
84 |
TIMESTEP |
externForcDiagIsOn = DIAGNOSTICS_IS_ON('Um_Ext ',myThid) |
|
./model/src/timestep.F |
85 |
TIMESTEP |
& .OR. DIAGNOSTICS_IS_ON('Vm_Ext ',myThid) |
|
./model/src/do_oceanic_phys.F |
105 |
DO_OCEANIC_PHYS |
LOGICAL DIAGNOSTICS_IS_ON |
|
./model/src/do_oceanic_phys.F |
124 |
DO_OCEANIC_PHYS |
IF ( DIAGNOSTICS_IS_ON('DRHODR ',myThid) ) doDiagsRho = 1 |
|
./model/src/do_oceanic_phys.F |
125 |
DO_OCEANIC_PHYS |
IF ( DIAGNOSTICS_IS_ON('RHOANOSQ',myThid) .OR. |
|
./model/src/do_oceanic_phys.F |
126 |
DO_OCEANIC_PHYS |
& DIAGNOSTICS_IS_ON('URHOMASS',myThid) .OR. |
|
./model/src/do_oceanic_phys.F |
127 |
DO_OCEANIC_PHYS |
& DIAGNOSTICS_IS_ON('VRHOMASS',myThid) .OR. |
|
./model/src/do_oceanic_phys.F |
128 |
DO_OCEANIC_PHYS |
& DIAGNOSTICS_IS_ON('WRHOMASS',myThid) .OR. |
|
./model/src/do_oceanic_phys.F |
129 |
DO_OCEANIC_PHYS |
& DIAGNOSTICS_IS_ON('WRHOMASS',myThid) ) doDiagsRho = 2 |
|
./model/src/diags_oceanic_surf_flux.F |
100 |
DIAGS_OCEANIC_SURF_FLUX |
IF ( DIAGNOSTICS_IS_ON('SWFLUX ',myThid) ) THEN |
|
./model/src/diags_oceanic_surf_flux.F |
120 |
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_oceanic_surf_flux.F |
68 |
DIAGS_OCEANIC_SURF_FLUX |
IF ( DIAGNOSTICS_IS_ON('TFLUX ',myThid) ) THEN |
|
./pkg/gridalt/gridalt_update.F |
69 |
GRIDALT_UPDATE |
IF ( DIAGNOSTICS_IS_ON('DPPHYS ',myThid) ) THEN |
|
./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 |
|
./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/thsice/thsice_diagnostics_fill.F |
46 |
THSICE_DIAGNOSTICS_FILL |
LOGICAL DIAGNOSTICS_IS_ON |
|
./pkg/thsice/thsice_diagnostics_fill.F |
73 |
THSICE_DIAGNOSTICS_FILL |
IF ( DIAGNOSTICS_IS_ON('SI_Qice1',myThid) .OR. |
|
./pkg/thsice/thsice_diagnostics_fill.F |
74 |
THSICE_DIAGNOSTICS_FILL |
& DIAGNOSTICS_IS_ON('SI_Qice2',myThid) ) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
298 |
GAD_IMPLICIT_R |
IF ( DIAGNOSTICS_IS_ON(diagName,myThid) ) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
80 |
GAD_IMPLICIT_R |
LOGICAL DIAGNOSTICS_IS_ON |