C $Header: /u/gcmpack/MITgcm/pkg/diagnostics/diagnostics_ad.flow,v 1.12 2014/07/17 12:31:30 heimbach Exp $ C $Name: $ 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 = CADJ SUBROUTINE DIAGNOSTICS_INIT_VARIA DEPEND = 1 CADJ SUBROUTINE DIAGNOSTICS_INIT_VARIA REQUIRED C---------------------------------------- C FUNCTION DIAGNOSTICS_IS_ON C---------------------------------------- cphCADJ FUNCTION DIAGNOSTICS_IS_ON INPUT = 1,2 cphCADJ 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---------------------------------------- cphCADJ SUBROUTINE DIAGS_RHO INPUT = 1,2,3,4,5,6,7,8 cphCADJ SUBROUTINE DIAGS_RHO 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 = CADJ SUBROUTINE DIAGS_OCEANIC_SURF_FLUX DEPEND = 1,2,3 CADJ SUBROUTINE DIAGS_OCEANIC_SURF_FLUX REQUIRED 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 DIAGNOSTICS_FILL_RS C---------------------------------------- CADJ SUBROUTINE DIAGNOSTICS_FILL_RS INPUT = 1,2,3,4,5,6,7,8 CADJ SUBROUTINE DIAGNOSTICS_FILL_RS OUTPUT = C---------------------------------------- C SUBROUTINE DIAGNOSTICS_SCALE_FILL C---------------------------------------- CADJ SUBROUTINE DIAGNOSTICS_SCALE_FILL INPUT = 1,2,3,4,5,6,7,8,9,10 CADJ SUBROUTINE DIAGNOSTICS_SCALE_FILL OUTPUT = C---------------------------------------- C SUBROUTINE DIAGNOSTICS_SCALE_FILL_RS C---------------------------------------- CADJ SUBROUTINE DIAGNOSTICS_SCALE_FILL_RS INPUT = 1,2,3,4,5,6,7,8,9,10 CADJ SUBROUTINE DIAGNOSTICS_SCALE_FILL_RS OUTPUT = C---------------------------------------- C SUBROUTINE DIAGNOSTICS_FRACT_FILL C---------------------------------------- CADJ SUBROUTINE DIAGNOSTICS_FRACT_FILL INPUT = 1,2,3,4,5,6,7,8,9,10,11 CADJ SUBROUTINE DIAGNOSTICS_FRACT_FILL OUTPUT =