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