IF (usePP81) THEN
LOGICAL usePP81
& useOPPS, usePP81, useMY82, useGGL90, useKPP,
IF (usePP81 .AND. myIter.NE.nIter0 )
IF (usePP81) CALL PP81_READPARMS( myThid )
useVariableK = useKPP .OR. usePP81 .OR. useMY82 .OR. useGGL90
IF (usePP81) CALL PP81_CHECK( myThid )
IF (usePP81) CALL PACKAGES_CHECK_ERROR('PP81', myThid)
& usePP81,
usePP81 =.FALSE.
IF (usePP81) CALL PP81_CALC_VISC(
IF ( usePP81 ) THEN