INTEGER seqFlag
SUBROUTINE PTRACERS_TURNOFF_IO( seqFlag, myThid )
IF ( seqFlag.EQ.0 .AND. useLand ) THEN
IF ( seqFlag.EQ.0 .AND. useMYPACKAGE ) THEN
SUBROUTINE DO_STATEVARS_DIAGS( myTime, seqFlag, myIter, myThid )
IF ( seqFlag.EQ.0 ) selectVars = 2
IF ( seqFlag.EQ.1 ) selectVars = 1
IF ( seqFlag.EQ.0 ) selectVars = 3
IF ( seqFlag.EQ.2 ) selectVars = 4
IF ( seqFlag.EQ.0 .AND. useGAD ) THEN
IF ( seqFlag.EQ.0 .AND. useSEAICE ) THEN
IF ( seqFlag.EQ.0 .AND. useThSIce ) THEN
SUBROUTINE SEAICE_TURNOFF_IO( seqFlag, myThid )
SUBROUTINE TURNOFF_MODEL_IO( seqFlag, myThid )
CALL SEAICE_TURNOFF_IO( seqFlag, myThid )
CALL PTRACERS_TURNOFF_IO( seqFlag, myThid )