INTEGER selectVars
selectVars = 0
IF ( seqFlag.EQ.0 ) selectVars = 2
IF ( seqFlag.EQ.1 ) selectVars = 1
IF ( seqFlag.EQ.0 ) selectVars = 3
CALL DIAGNOSTICS_FILL_STATE(selectVars, myThid)
IF ( (selectVars.EQ.1 .OR. selectVars.EQ.3)
IF ( selectVars.EQ.1 .OR. selectVars.EQ.3 ) THEN
IF ( selectVars .GE. 2 ) THEN
SUBROUTINE DIAGNOSTICS_FILL_STATE( selectVars, myThid )