& momForcingOutAB, tracForcingOutAB,
INTEGER momForcingOutAB, tracForcingOutAB
IF ( saltForcing .AND. tracForcingOutAB.NE.1 )
IF ( saltForcing .AND. tracForcingOutAB.EQ.1 )
IF ( tempForcing .AND. tracForcingOutAB.NE.1 )
IF ( tempForcing .AND. tracForcingOutAB.EQ.1 )
IF ( tracForcingOutAB.NE.0 .AND. tracForcingOutAB.NE.1 ) THEN
& tracForcingOutAB, ' not allowed'
CALL WRITE_0D_I( tracForcingOutAB, INDEX_NONE,
IF ( tracForcingOutAB.NE.1 )
IF ( tracForcingOutAB.EQ.1 )
IF (tracForcingOutAB.NE.1) THEN
& forcing_In_AB, momForcingOutAB, tracForcingOutAB,
IF ( tracForcingOutAB .EQ. UNSET_I ) THEN
tracForcingOutAB = 1
IF ( forcing_In_AB ) tracForcingOutAB = 0
tracForcingOutAB = UNSET_I