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