C---------------------------------------- C subroutine diagnostics_SWITCH_ONOFF C---------------------------------------- CADJ SUBROUTINE diagnostics_SWITCH_ONOFF INPUT = 1,2,3 CADJ SUBROUTINE diagnostics_SWITCH_ONOFF OUTPUT = 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 = C---------------------------------------- C subroutine diagnostics_fill_surf_flux C---------------------------------------- CADJ SUBROUTINE diagnostics_fill_surf_flux INPUT = 1 CADJ SUBROUTINE diagnostics_fill_surf_flux OUTPUT = 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 = 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 =