LOGICAL useLayers
& useDiagnostics, useREGRID, useLayers, useMNC,
IF ( useLayers ) THEN
IF ( .NOT.useLayers ) THEN
useLayers =.FALSE.
CALL PACKAGES_PRINT_MSG( useLayers, 'Layers', ' ' )
& useLayers,
IF ( useLayers ) CALL LAYERS_CHECK( myThid )
IF ( useLayers ) CALL PACKAGES_ERROR_MSG('LAYERS',' ',myThid)
useLayers = .FALSE.