C---------------------------------------- C subroutine diagnostics_switch_onoff C---------------------------------------- CADJ SUBROUTINE diagnostics_switch_onoff INPUT = 1,2,3 CADJ SUBROUTINE diagnostics_switch_onoff OUTPUT = CADJ SUBROUTINE diagnostics_switch_onoff DEPEND = 1,2,3 CADJ SUBROUTINE diagnostics_switch_onoff REQUIRED C---------------------------------------- C subroutine diagnostics_count C---------------------------------------- CADJ SUBROUTINE diagnostics_count INPUT = 1,2,3,4 CADJ SUBROUTINE diagnostics_count OUTPUT = C---------------------------------------- C subroutine diagnostics_init_varia C---------------------------------------- CADJ SUBROUTINE diagnostics_init_varia INPUT = 1 CADJ SUBROUTINE diagnostics_init_varia OUTPUT = C---------------------------------------- C FUNCTION diagnostics_is_on C---------------------------------------- CADJ FUNCTION diagnostics_is_on INPUT = 1,2 CADJ FUNCTION diagnostics_is_on OUTPUT = C---------------------------------------- C FUNCTION GAD_DIAG_SUFX C---------------------------------------- CADJ FUNCTION GAD_DIAG_SUFX INPUT = 1,2 CADJ FUNCTION GAD_DIAG_SUFX OUTPUT = C---------------------------------------- C subroutine diags_rho C---------------------------------------- CADJ SUBROUTINE diags_rho INPUT = 1,2,3,4,5,6,7,8 CADJ SUBROUTINE diags_rho OUTPUT = C---------------------------------------- C subroutine diagnostics_fill C---------------------------------------- CADJ SUBROUTINE diagnostics_fill INPUT = 1,2,3,4,5,6,7,8 CADJ SUBROUTINE diagnostics_fill OUTPUT = cphCADJ SUBROUTINE diagnostics_fill DEPEND = 1,2,3,4,5,6,7,8 cphCADJ SUBROUTINE diagnostics_fill REQUIRED C---------------------------------------- C subroutine DIAGS_OCEANIC_SURF_FLUX C---------------------------------------- CADJ SUBROUTINE DIAGS_OCEANIC_SURF_FLUX INPUT = 1,2,3 CADJ SUBROUTINE DIAGS_OCEANIC_SURF_FLUX OUTPUT = CADJ SUBROUTINE DIAGS_OCEANIC_SURF_FLUX DEPEND = 1,2,3 CADJ SUBROUTINE DIAGS_OCEANIC_SURF_FLUX REQUIRED C---------------------------------------- C subroutine C---------------------------------------- CADJ SUBROUTINE DIAGNOSTICS_SCALE_FILL INPUT = 1,2,3,4,5,6,7,8,9,10 CADJ SUBROUTINE DIAGNOSTICS_SCALE_FILL OUTPUT =