INTEGER ENUM_UPWIND_1RST
PARAMETER(ENUM_UPWIND_1RST=1)
IF ( advectionScheme.EQ.ENUM_UPWIND_1RST
IF ( vertAdvecScheme.EQ.ENUM_UPWIND_1RST
ELSEIF ( advectionScheme.EQ.ENUM_UPWIND_1RST
ELSEIF ( vertAdvecScheme.EQ.ENUM_UPWIND_1RST
validNum = GAD_VALID_ADVSCHEME( ENUM_UPWIND_1RST )
GAD_Scheme_olSize( ENUM_UPWIND_1RST ) = 1
& advScheme .EQ. ENUM_UPWIND_1RST
& SEAICEadvSchArea.NE.ENUM_UPWIND_1RST .AND.
& SEAICEadvSchHeff.NE.ENUM_UPWIND_1RST .AND.
& SEAICEadvSchSnow.NE.ENUM_UPWIND_1RST .AND.
& SEAICEadvSchSalt.NE.ENUM_UPWIND_1RST .AND.
& SEAICEadvSchAge .NE.ENUM_UPWIND_1RST .AND.
& ENUM_UPWIND_1RST, ENUM_CENTERED_2ND, ENUM_DST2,